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Only Microware's OS-9 

Operating System Covers 

the Entire 68000 Spectrum 




ROM-BASED 
CONTROL 
SYSTEMS 



FMIPPY-OISK BASED 

PERSONAL 

COMPUTERS 



DISK-8ASED 

INDUSTRIAL 

SYSTEMS 



SMALL-SCALE 

TIMESKARINfi 

SYSTEMS 



LJtRGE-SCALE 

TIMESHARING 

SYSTEMS 



HANO-HEID 
COMPUTERS 



HARDWARE/SOFTWARE 
OEVEIjOPMENT SYSTEMS 



SINSLE USER 
MULTITASKING SYSTEMS 



MEDIUM-SCALE 
TIMESHARING SYSTEMS 



SMALL SYSTEMS 



LARGE SYSTEMS 



Is complicated software and expensive hardware 
keeping you back from Unix? Look into OS-9. the 
operatingsystem from Microware thai gives 68000 systems 
a Unix-style environment with much less overhead and 
complexity. 

OS-9 is versatile, inexpensive, and delivers outstanding 
performance on any si/e system. The OS-9 executive is 
much smaller and fjr more ef- 
ficient than Unix because It's 
written in fast, compact as- 
sembly language, making It 
Ideal tor critical real-time ap- 
plications. OS-9 can run on 
a bioad lange of 8 to 32 bit 
systems based on the 68000 
or 6809 family MPUs from 
ROM-based industrial con- 
trollers up to large multiuser 
systems. 

OS-9'S OUISTANDING 

C COMPILER IS 
YOUR BRIDGE TO UNIX 
Miaovvares C compJer tech- 
nology is anolfier OS-9 advantay>e. The compiler produces 
extremely fast, compact, and ROMable code. You can easily 
develop and port system or application software back and 
forth to standaid Unix systems. Cross-compiler versions for 



VAX and PDP- 1 1 make coordinated UnivOS-9 software 
development a pleasure. 

SUPPORT FOR MODULAR SOFTWARE 
- AN OS-9 EXCLUSIVE 

Compiehensive Mipport for modular software puts OS-9 
a generation ahead of other operating systems. It multiplies 
piogrammer productivity anti memory efficiency. Applica- 
tion software can be built 
from mdlvidually testable 
software modules Including 
standaid "library" modules. 
The modular structure lets 
you customize and recon- 
figure OS-9 for specific haid- 
ware easily and quickly, 

A SYSTEM WITH 

A PROVEN 
TRACK RECORD 
Once an underground 
classic, OS-9 is now a solid 
hit. Since 1980 OS-9 has 
been ported to over a hun- 
dred 6809 and 68000 
systems under license to some of the biggest names in the 
business. OS-9 has been imbedded in numerous consumer, 
industrial, and OEM ptuducts, and is supported by many 
independent software suppliers. 



Key OS-9 Features At A Glance 

Compact {16K] ROMable executive written In assembly 

language 

User "shell" and complete utility set written in C 

C-souice code level compafblllty with Unix 

Full Multitasking/multiuser capabilities 

Modular design • extiemely easy to adapt, modify, or 

expand 

Unix-type tiee structured file system 

Rugged "crasli-proor' file structure with lecord locidng 

Works well with floppy disk or ROM-based systems 

Uses hardware or softwaie memory management 

High peiformance C, Pascal, Basic and Cobol compilers 
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GmX 68020 DEVELOPMENT SYSTEM 

A Multi-user, Multi-tasking software development system for use with all 68000 family processors. 




HARDWARE FEATURES 



• The GMX-020 CPU board has; the MC68020 32-bit processor, a 4K 
Byle no wait-state instruction cache, high-speed MMU, and a full- 
featured hardware time of day clock /calendar with battery back- 
up. It also provides for an optional 68881 floating point co- 
processor. 

• 1 Megabyte of high speed static RAM. 

• Intelligent Serial and Parallel I/O Processor boards significantly 
reduce system overhead by handling routine 1/0 functions. This 
frees up the host CPU for running user programs. The result is a 
speed up of system performance and allows all terminals to run at 
up to 19. 2K baud. 

• The system hardware will support up to 39 terminals. 

• Powered by a constant voltage ferro- resonant power supply that in- 
sures proper system operation under adverse AC power input condi- 
tions. 

• DMA hard disk interface and OMA double density floppy disk con- 
troller are used for data transfers at fuli bus speed. The OMA hard 
disk drive controller provides automatic 22-bit burst data error 
detection and 11 -bit burst error correction. 

• A selection of hard disk drives with capacities from 19 to 85 
Megabytes, removeable pack hard disk drives, streaming tape 
drives, and floppy disk drives is available. 

UNIX u a1r«le<TS[k«l AI I I 

ADA u A inflwurk of Iha U S Gcvemmtit 

UnREX II 1 katxnirk u rKUicK Siniamt Coniuiunu ini 

GMXaMGIMIX vtmSfrnirtSOISlMIX Inc 

GIMIX, Inc., a Chicago based microcomputer company established in 1975, has produced state of the art microcompuler systems based on Motorola 6300 and 
6809 microprocessors. GIMIX systems are in use in Industry,, Hospitals, Universities, Research Organiations, and by Software Developers. GIMIX was awarded 
the prestigious President's "E" Cerliiicale for Exports in 1984. 



SOFTWARE FEATURES: 

The UniFLEX VM Operating System is a demand-paged, virtual 
memory operating system written in 68020 Assembler code tor com- 
pactness and efficiency. Any UniFLEX system will run taster than a 
comparable system written in a higher level language. This is impor- 
tant in such areas as context switching, disk I/O, and system call 
handling. Other features include: 

compact, efficient Kernel and modules allows handling more users 
more effectively than UNIX systems, using much less disk space. 

UNIX system V compatibility at the C source code level. 

C Compiler optimized in 68020 code (optional). 

Record locking tor shared files. 

Users can share programs in memory. 

Modeled after UI4IX systems, with similar commands. 

System accounting facilities. 

Sequential and random file access. 

Maximum record size limited only by the disk size. 

Multiple Level Directories. 

Up to 4 Megabytes ot Virtual Memory per user. 

Optional Languages available are: C, BASIC. COBOL, FORTRAN, 
LISP, PROLOG, SCULPTOR, and ASSEMBLER. In development are 
ADA, PASCAL, and FORTH. 

Included with the UniFLEX Operating System are a Utilities package, 
editor, relocating assembler, linking loader, and printer spooler. Op- 
tions inlcude a fast floating point package, library generator, and a 
sort-merge package. 

The GMX version of the MOTOROLA 020 BUG is included with the 
system. 
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HeAR ve, HeAR 

OS-9" 
User Notes 



By: Peter Dibble 
As Published In 68 Micro Journal 



The publishers of 6i) Micro Journal are proud to announce the 
publication of Peter Dibbles 0S9 DSKt ■PIES . 

laforaatlo* for th« BSCDOIZR to th« PIO, 
Kegolar or CoCo 0S9 

Using 0S9 

HELP, HINTS, PROBLEHS, REVIEWS, SUGGESTIONS, COHPLAINTS. 0S9 STANDARDS, 
Generating a New Bootstrap, Building a new System Disk, 0S9 Users Group, etc. 

Prograa Interfacing to 0S9 

DEVICE DESCRIPTORS, DIRECTORIES, "PORKS", PROTECTION, "SUSPEND STATE", "PIPES", 

"INPUT/OUTPUT SYSTEM", etc. 



Progra^d.og Language* 
Assenbly Language Programs and Interfacing; Ba8lc09, C, Pascal, and Cobol 
reviews, programs, and uses; etc. 

Dlaka Inclnde 
Mo typing all the Source Llatlnga in. Source Code and, where applicable, 
aaaeabled or compiled Operating Progroas. The Source and the Dlacuaalona in 
the Columns can be used "as la", or as a "Starting Point" for developing jomx 
OWN more powerful Programs. Programs sometimes use multiple Languages auch 
as a short Assembly Language Routine for reading a Directory, which la then 
"piped" to a Baslc09 Routine for output formatting, etc. 



BOOK 



Typeset — w/ Source Listings 
(3-Hole Punched; 8x11} 

Deluxe Binder --------- 



$9.95 

$5.50 



. ,, o T ■ X- -.. , 1 8" SS, SD Disk $14.95 

All Source Listings on Disk 2 5- ss, dd Disks $24.95 

Shipping and Handling; $3.50 per Book, $2.50 per Disk Set 
* All Currency In U.S. Dollars Foreign Orders Add $4.50 S/H 

If paying by check - Please allow 4-6 weeks delivery 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN. 37343 



1M - 0S9 l« 4 tr«d«««rk OI Nlcrotfir* SyHtcaa Corp. Kv4 HatoroU Inc. 
TN - tr tUtrs J<><ifn«t it * tcadcaark at Cnafuor P<ikU*iant iBC. 
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FLEX "■ USER NOTES 

THE 6800-6809 BOOK 

By: Ronald W. Anderson 

As published in 68 MICRO JOURNAL" 



The publishers of 68 MICRO JOURNAL are proud to announce the publication of Ron Andersons FLEX USER NOTES, In 
book form. This popular monthly column has been a regular feature in 68 M ICRO JOURNAL S INCE 1 979. It has earned the 
respect of thousands of 68 MICRO JOURNAL readers over the years. In fact, Ron's column has been described as the 
Bible' for 68XX users, by some of the world's leading microprocessor professionals, fslow all his columns are being 
published, in whole, as the most needed and popular 68XX book available. Over the years Ron's column has been one of 
the most popular in 68 MICRO JOURNAL. And of course 68 MICRO JOURNAL is the most popular 68XX magazine 
published. 

As a SPECIAL BONUS all the source listing in the bool< will be available on disl< for the low pnce of: FLEX " format only — 5" 
S12.95 — 8"$16 95 plus S2.50 shipping and handUng. if ordered with the bool<. If ordered separately the price of the disks 
will be: 5" $17.95 — 8" $19 95 plus $2.50 shipping and handling. 

Listed below are a few of the TEXT files included in the book and on diskette. 

All TEXT files in the book are on the disks. 



L0G0.C1 

MEM0VE-C1 

DUMP.C1 

SUBTEST.C1 

TERMEM.C2 

M.C2 

PRINT.C3 

M00EM.C2 

SCIPKGC1 

U.C4 

PRINT.C4 

SETC5 

SETBAS1.C5 



File load program to offset memory — ASM PIC 
Memory move program — ASM PIC 
Printer dump program — uses LOGO — ASM PIC 
Simulation of 6800 code to 6809, show differences — ASM 
Modem input to disk (or other port input to disk) — ASM 
Output a file to modem (or another port) — ASM 
Parallel (enhanced) printer driver — ASM 
TTL output to CRT and modem (or other port) — ASM 
Scientific math routines — PASCAL 
Mini-monitor, disk resident, many useful functions — ASM 
Parallel printer driver, without PFLAG — ASM 
Set printer modes — ASM 
Set printer modes — A-BASIC 
(And many more) 



"Over 30 TEXT files included in ASM (assembler) — PASCAL — PIC (position independent code) TSC BASIC-C. etc. 

NOTE: .C1,.C2, etc. = Chapter 1, Chapter 2, etc. 

This will be a limited run and we cannot guarantee that supplies will last long. Ojder npw^for early delivery. 

Foreign Orders Add $4.50 S/H 
Soflcover — Large Format 

Book only: $7.95 + $2.50 S/H 

With disk: 5' S20.90 + $2.50 S/H 

With disk: 8" S22.90 + $2.50 S/H 

See your local 350 dealer/bookstore or order direct from: 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

TELEX 551 414 PVT BTH (615) 842-4601 

"FLEX IS a bwOtnaA of T»<9in«cal Systems CoASurunii 
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FLEX User Notes 



ftonald W. Anderson 
5540 Slurbribge Court 
/km Arbor, Ml A81D) 

Editors 

Rerc are aoae randoa thought* precipitated by the 
aearch (or a aultable acreen editor (or the coapany'a 
Tandy 1200-HO. We now have purchaaed three acreen 
edltora and have one "(rceuare" veralon. Ny aearch (or 
one that xulta ae la not yet at an end. 

1 have anae Ideaa about what an editor ahould be and 
what It ahould not be. Plrat of all, like any conputer 
prograa It ahould aerve ae, not the other way around. 
The editor ahould aake creation and changing o( a text 
file or a prograa aa eaay aa poaslble. It ahould be able 
to handle paragrapha o( text aa well aa (oraatted prograa 
llatlnga. It ahould alnlalze the keyatrokea neceaaary to 
perfora any (unction. I aa going to Live with It (or a 
long ttiae ao 1 don't alnd If It takea a while to learn all 
o( Ita (eaturea, aa long aa 1 can learn the aoat uaed 
onea quickly. It ahould be convenient and logical to uac. 

Two o( our recent purchaaea require the uaer to 
"Inaert" blank Unea when he buapa the end of the text ao 
that there are aore llnea available to be edited. That 
In ay opinion la abaolute nonaenae. The editor ought in 
know there la no aore text below the preacnt point, and 
it ahould handle that without the uaer ever knowing about 
it. One o( our 6B09 edltora worka that way. You can 
Juat aove the curaor down 12 llnea below the laat line o( 
text, go to the alddle o( the acreen and type whatever 
you want. The )io(tware Inaerta blank Un«a (CR) and 
apacea over to the curaor be(ore Inacrtlng the text that 
you typed. Such operation ought to be atandard with 
edltora. 

0( the (our edltora that we purchased, two vlli do 
on-acreen (oraattlng o( paragrapha. Neither adequately 
handlea eabedded printer codea (or underline or boldlace. 
The two that do not do foriuttlng on acreen are uaable 
by a text |>roceaaor that doea handle eabedded codea 
conveniently. It ahould be poaalble to have both 
(omattlng and eabedded codea. 

One o( the (our la very coaplete, very large, and 
coaplex to uae . It rcqulrea aany aore keyatrokea to 
accoapllah the aaae thlnga aa aoae o( the othera. 
(Though, to be (air, you can create your own key aacro 
deflnltlona to aake one control key do Juat what you 
need.) It la the aoat uaelul o( the (our. It haa a 
little cooaand language built In by which you can prograa 
any key to perfora a at ring o( (unctlona. For exaaple. It 
lacka what I would call auto Indent aode. When I write <t 
prograa 1 like the node In which the curaor allgna ItaeK 
with the (Irat non-blank on the preceding line whrn you 
type a CR, With the editor In queatlon, you can prograa 
a (unction key or a control key to do a CR, aove the 
curaor up one line, aove right until It (Inda the first 
non-apace, and aove down a line. That la exactly what 
Auto Indent aode ahould do. Now U you want to atay at 
the aaae Indent level, you atart typing. If not you tab 
or backtab one or acre Indent lev«la to go where you want 
to be. 

One o( the edltora waa advertlaed »b "top quality 
ao(tware" at a veiy r«aaonable price. Tha price waa (Ine, 
but that la where the probleaa began. The llcenae 
agreeaent waa totally abaurd. "Tou proalae not to copy 
thla aoltware." That ta what It aald, no escaptloiu. I 
had the choice o( aendlng It back unopened, but I read 
the aanual a while and It contained explicit Inatructlone 



to aake a backup copy o( the aupplled dlak (which waa 
copy protected by aeana o( a KEY that had to ba read 
(roa the original dlak In order to run the ao(tuare). 
The Inatructlona (or running It froa or with a hard dlak 
were obacure, but 1 finally (Igured out that I could 
operate It (roa a hard dlak, but It doea require the 
original dlak to be In drive A on the Tandy In order to 
run It. While I have no quarrel with protection ach«aca, 
the Ad aald nothing whatever about protection. The 
license agreeaent waa contradicted In the Inatructlone. 
The aanual contained a Hat o( (Ilea that were auppoaed 
to be on the dlak. Several ot thoae were not, and 
conaequently 1 could not Inatall any other printer than 
the one (or which It la originally aet up. 

I've coaplalned loud and long about that one In a 
letter to the auppller, but It la too early to have 
received any aort o( reaponae. What 1 aa getting at, la 
that we FLEX (and OS-9) uaera are atlU pretty well off. 
When thoae other guya tell you "look at all the aoftware 
we have available, coapared to what you have." Juat aay, 
that what they aay la true, but quantity and quality are 
two different thlnga. 

When the other guya argue that they can run with 
larger aeaory apace, reaeaber that It takea then twice 
aa auch aeaory to run the aaae prograa aa we can run In 
our 6B09 ayateaa. By actual count In ay recent 
tranalatlon of JUST to "C", McCoah "C" for the 6H09 
coaplled Juat under BK bytea of output code, and l.attlce 
C on the Tandy coaplled very nearly ISK for the aaae 
prograa (five llnea different out of 650 or ao). That 
very capable editor aentloned above la over lOOK of code. 
Of the four, the aaalleat puahea 40K. 

That brlnga ae to thoughta of ay editor project. It 
la nearlnis coapletlon, though auch field teatlng in 
required before 1 aa willing to aay that It la bug free. 
Preaently the output la Juat over 13K (of P1./9 output 
code). I figure that wUl tranalate Into 20K of 6B09 'C 
code and about 40K of B086 'C code . 

t have aeveral Ideaa about apeedlng up the operation 
here and there, particularly when going to a line at the 
other end of the fUe or aearchlng the entire (lie for a 
atrlng aatch. There are a few placea where aoae 
Aaaeabler code alght apeed thlnga up by a factor of two 
or three. I alao have aoae Ideas for additional featurea 
to be added. t think, however, the project la due for 
aoae aettllng tlae aa I uae the editor and find further 
buga (found one thla aornlng and fixed It by adding one 
line of code.) I've found in general that the hardeat 
part of the debug waa not finding the code that cauaed 
the problea but deteralnlng when the problea occurred, 
that la, what clrcuaatancea cauaed Ita occurrence. Juat 
aa a aatter of Intereat to noae of you, I now have an 
eatlaated 300 houra or ao In the project, t Intend to 
tranalate the final reault Into 'C, not ao auch for an 
exerclae but to aake It store portable. 

Xeaponaea 

The reaponaea continue to coae In with reapect to ay 
recent plea for aoae feedback. I received one aore 
rather nice "naaty" letter laat week, and In the aaae aall 
one that waa aoat supportive of what I have been doing. 
The writer of the aecond letter aald that he hoped 1 
wouldn't atart filling the coluan with long explanatlona 
of how to uae atandard FLIX routines alnce he agreed 
with ae that they are all apalled out In the Prograoacr'a 
Culde,** I appreciate the aupport, but I alao aee that 
aany of you (I would gueaa the nuaber of reaponaea haa 
reached about 2) at thla point), do want aoae artlclea 
about FliBX. One writer auggeated that I go back through 
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Che history of FLEX and document aoae o( the early 
probleaa with It, (!'■ sorry, but I can't laaglne that 
anyone would care about or benefit (roa auch a hlatorlcal 
review). 

To auBsarlia the reaponaea, I'd aay about 13 of the 23 
were neutral, five or ao were very aupportlve. five were 
critical and one waa downright naaty. I gueaa 1 can't win 
thea all. Along that Line 1 note that aoae people tend 
to read thlnga Into what 1 aay. Support for the 
dlacuaalona of the baalca of FLEX waa Juat about 
unanlaoua. Several people picked up on vf auggeatlon of 
Including dlacuaalon of proper uae of aubroutlnea and aub 
procedurea. While 1 certainly don't conalder By prograaa 
to be "textbook" exaaplea ot that, 1 think 1 do a better 
Job than nany, and perhapa the old aaylng that "thoae who 
can't can teach aoaeone elae" alght hold true In thlg 
•■aae. 1 do alncerely thank all of you who reaponded 
poaltlvely or negatively <even "naatUv"). 

I'd like to dlacuaa the tera "hacker" Juat once mate, 
and th«n I'll drop ay lone cruaade. One of the wrltera 
aald that t aurely auat be a hacker at leaat to aoae 
degree. That got ae to thinking about the tera a little 
more. If he neanc that I get In And tinker with the 
hardware anil aoftware of the operating ayatea, he la 
abaolutely right. 1 think the reaaon I don't conalder 
•yaelf a hacker la that 1 don't enjoy auch activity but do 
tackle It when neceaaary. For example, I found a clock 
calendar board In ay aall a year or ao ago, aent by a 
friend who had <iade It out of an old HP-C board, A clock 
board la not very uaeful unleaa you link It to FLEX ao 
that FLEX doean't aak for the DATE but reada It froa the 
calendar board. It la alao nice to have a utility to tell 
you the current tlae and date. t got Into FLEX and 
apent a long evening dlaaaaeabllng and chaalng aubroutlne 
Juapa to aubroutlne Juapa to aubroutlne Juapa until I 
found the code that polnta to the date proapt and puta 
It on the acreen, I waa able to patch FLEX to Juap to 
ay routine to read the date and print the date and tlae 
on the teralnal. If the Clock board la abaent, it aaka 
for the date noraally. Nice end reault, but an aaaured 
pain to carry outi A true hacker would rellah the 
challenge. 1 don't think t qualify. 

That, 1 think la what aeparatea a true hacker froa the 
reat. One adaltted hacker told ae In a letter that he 
would hope that he would never alnk to doing anything 
practical with hla coaputer ever) Soae of ua hack, but 
we don't "love It", 1 gueaa 1 aa In that category, 
tnough on that aubject except to aay that t have noted 
lately that aoat hackera are very helpful to other 
" coapute r la t a" who are not ao advanced In their 
capabllltlea . t know of aeveral who have helped people on 
A continuing baala to aake Inproveoenta In their ayateoa . 
Kent Neyera, Joe Aullclno and Bob Jonea all deaerve 
apeclal mention for their helpfulneaa to other SS-30 bua 
uaerat 

FLEX 

In keeping with ay recent aerlea on FLEX, 1 thought I 
would aentlon one of the thlnga FLEX uaera have perceived 
aa a ahortcoalng for aoae tlae, (Thla la the topic I 
aentloned laat aonth, aaylng I would get Into it in a 
future coluan,} FLEX provldea a aector on each dlak 
called the Syetea liiforaatlon Record. Aaang other thlnga 
thla aector contalna Inforaatlon regarding how aaay 
tracka tha dlak contelna, how aaoy aectora oa each track, 
and aoat laportantly the flrat and laat aector In the 
"Free Chain", the aectora that have either not been uaed 
alnce the dlak waa foraatted, or thoae tlat have been 
returned to the free chain by delating the file that they 
contained. When you open a file on a dlak thla inforaatlon 
la read to deteralne where the file ahouid be written to 
the dlak. Now, auppoae you change dlaka in that drive. 
While fllaa are open, FLCX doea NOT again read the Syetea 
inforaatlon Record (SIR). When you cloae tha file or 
continue to write to it, FLEX will write the aector that 
it had Intended to write on the original dlak even though 
that aactor alght b« right aaack in the alddie of a valid 
file on the new dlak. Of courae thla cawaea sll aorta of 
naaty thlnga to happen, aaoajs which are the ruining of 

6 Oc<06er 



fllea, traahlng of dlrectorlea, fouling up of the free 
chain etc. The rule therefore la that you ahouid not 
ever change dlaka In a drive while fUea are open on that 
drive. 

To every rule there la an exception. Thia probiea 
flrat becaae a concern when Peter Stark tried to put hla 
apelUng checker'a dictionary on aultlpie dlaka. He found 
that he couldn't change dlaka and have thlnga operate aa 
planned. Of courae, Peter tracked down the probiea and 
figured out a way to force FLEX to read the SIR of the 
new dlak when It waa Inaarted. Therefore with Pete'a 
Spell 'N Fix aoftware you can change dlaka with fllea 
open. If you are deeply Intereated, a back laaue of '68' 
haa the article by Peter on how he did It. The point of 
thla, however, la to be careful about changing dlaka while 
running auch thlnga aa databaae prograaa, A favorite 
trick of mine la to be editing a file auch aa theae notea 
or a letter to a friend, and then unthinkingly decide to 
do aoaethlng elae and abaent mlndedly awitch dlaka, 
forgetting to exit the edit aeaaion. Then after 
awitchlng dlaka, 1 aee that 1 am atlll editing and exit 
the edit, thereby ruining the dlak 1 Juat put in the 
drive. (Of courae I don't aean that the dlak la 
phyalcally ruined, Just the data fllea on It). 

Sorta 

I Juat thought I'd put In a little note here. Two or 
three reaponaea have coae to ay little dlacuaalon of 
aortlng a few aontha back. Dan Farnaworth aent ae aoae 
aort prograaa (in Aaaeabler, of courae). a aecond reply 
Indicated that It would be nice to have a dlacuaalon of 
the full Shell Hettner aort aoae tlae, and a third 
indicated that the Inclualon of that alaple dlacuaalon had 
aore or leas aade It worthwhile to have aubacrlbed to 
'66', The writer Indicated that he had been ualng a 
bubble sort "in ay Fortran prograaa" for aeveral years, 
aware that there were othera around but not aware that 
they were algnlf Icantly better. Now that ay big EDIT 
project la nearlng coapletlon, I'll get a BASIC and a 
Paacal version of the full aort ready and Include it along 
with a further dlacuaalon here In the near future. 

Codea 

It occura to ae that aoae of you newcoaera to 
coaputing aight have been confuaed by ay dlacuaalon above 
referring to ASCII 1 aa oppoaed to Hexadeciaal I. By tha 
ASCII code, t aean the code that, when aent to a printer 
or teralnal that accepta the atandard ASCII code, cauaea 
the character T to be printed or dlaplayed. ASCII 
atanda for Aaerlcan Standard Code for Inforaatlon 
Interchange, While It la not ay purpoae to get into 
repreaentatlona of nuabera in different nuaber baaea, 
(nearly every prograaalng book ever written contalna a 
chapter or two on thia aubject), let ae juat aay that the 
following are ail equivalent: 

01000001 Binary 

101 Octal 

6S Oeclaal 

41 Hexadeciaal 

Theae are all different waya of repreaentlng the aaae 
binary aequence add they repraaent the ASCII code for the 
letter 'A' (capital, that la). The Binaiy repreaentation 
ahowa eech Binary diglT (BIT), The Octal code groupa the 
binary dlgita in thraea froa the right to the left, ao the 
value ia 01 000 001 which you will recognize aa the 
binary repreaentatlona of 1 and 1 reapectively , 
Hexadeciaal groupe the binary dlgita in fours aa In 0100 
OOOt which are the repreaentatlona in binary of 4 and I 
reapectively, Hexadadaai codea can repreaent 16 valuea 
with each digit. Since there are only ten dadaal dlgita, 
tha exceaa aix values are repreaented by the lettera A 
through F-- A repreaentlng the value 10 through ? 
repreaentlng the value IJ. 

In the "golden daye" of Hinlcoaputere (aoat notably DEC 
PDF 8 and II) Octal codea ware the geocrai rule. Since 
the coalng of 8 bit aicrocoaputera, with their 6 and 16 
bit valuea, HexadadaAl >iaa becoae the rule. 
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An Apology 

Along ulch the responses Co <■/ request tor feedback a 
couple o( monchs ago, have cone several letters asking 
specific questions... looking (or advice and help ulth 
computer related probleas. Tine has not pernltted 9e to 
renpond to jill of these requests. Some of thea were of 
sufltclent Keneml Interest that 1 ulll Include none 
discussion ol thea In this column (If 1 have not already 
done so). One reader urote to ask hou to convert his 
SWTPc «yatea to run OS-9, Since I have never had OS-V 
running on ay system I could be of little help. Another 
computer user (apparently in s University) asked if I kneu 
o( any uay to implement an up/doun counter for the SS-30 
or SS-SU bus to be used to count toglc level pulses from 
an instrument. Unfortunately that was all the 
information given. 1 wrote back and asked a dozen 
questions. What is the maximua pulse rate from each 
source? is there to be one count Input and an up/down 
logic Input or are separate up and down count inputs 
needed? What la the aanioum count to be stored in the 
counter? Does the computer have to do something else 
while the counter is operating? Depending on the 



answers, 1 might reconmend anything froa a large board 
full of TTL reversible counters with a PIA or two to read 
the count, to a simple use of two hsndshske in[>uta on a 
PIA already installed in the systes, and a software 
counter. 

If you are going to ask me for help, please give me all 
the information you can. We engineers are alwaya asking 
how much, how fast, what else, when, and what ifll 

At any rate, 1 am sorry that 1 couldn't answer .lU the 
letters personally. 

** Only those purchasing FLEX from TSC nornally received 
the 'Prograaneis Guide', Hy estimate ta that about BOX 
or better is SWTPC FLEX, which la different than the TSC 
version *nd also did not come with the Prograoners Guide. 
The guide had to be purchaned separately. Hy guess la 
that Less than iOZ of the users bought it. 

DMW 
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I'a typing this column in the l,ake Dlntrlct at 
England. The surroundings ace special, so is the 
computer I'm using to type and edit this. 



would use Digital Research's GEM environment. The plAn 
was to put CEM in ROM; this would matte it very difficult 
to patch OS-9 in later. Too bad. It sounds like the 
Atari ST Just might be the Mac "for the rest of them." 
it would have been nice to have OS-9 in on chat. 

The AT&T Unix Machine 



I bought a NEC B^UI to uae for Just this kind of 
thing. It is about the sixe and weight of a notebook, 
with an 80 by lb LCD screen. It uses a CHOS 280 with 
b&K of MM and 9bK of ROM. (GOSHl fETER, UGHM - OHW) 
The ROM holds CPH, some CPM utilities, Wordstar-to-go, 
Celc-to-go, a trivial database system called filer, and 
a terminal emulation program called Telcom. I've given 
Uordatxr xnd Telcom n pretty good workout without 
(indlng any problems. 

for those who are disappointed that I slipped away 
from pure OS-9 this month, apologies. This computer 
(NEC calls it a Starlet) is so nice I thought you'd like 
to hear about it, 1 looked for a portable computer that 
ran OS-9. The Joy of learning new operating ayatems and 
editors every time I turn around has begun to fade. 
Nobody knew of one. Too bad. At least Wordstar doesn't 
turn out to be very different from Dynaatar. 

Atari 

For a long tine now I've been reading about the new 
68000-baaed Atari. It has been delayed and delayed, but 
I've finally read a letter from e regular person who 
bought one in « regular store (in Canada). If there are 
a few of them in Canada now it aeema reasonable to hope 
that there may be a few In the United States by the time 
you read this. 

thought it might be one of the new nachines running 
OS-9 that Ken Kaplan told ae to expect this year, t 
called him up all excited, but he told ae that the Atari 



AT&T is selling a bSOlO-based desktop computer for 
which I believe there la a good chance we'll aee a 
veraion of OS-9. It sounds like the AT&T Unix machine 
is fast when running simple Unix benchoarks, but things 
aren't ao good when aome of its special features are 
considered. It supports windows, which are evidently 
disturbingly slow, and haa a front end for many system 
functions which is said to be friendly but slow. 

Evidently AT&T has moved away from their open 
phlloaophy which has been such s good thing for Unix. 
The details of the hardware are only available to OEHa 
and VARb. You have to be a VERY big customer of AT»T to 
qualify in either of these categories. The letter 1 
have from AT&T says that they will have a source package 
available soon. It doesn't aay how complete that 
pscksge will be or what it will cost. 

I haven't seen either the Atari or the AT&T yet. 
I've read about them and heard about them from friends 
who have used them. I'll keep you posted as I le«rn 
more ,,, Especially if I hear about OS-9 for either 
computer. 

Small bSKa 

Richard Don at Cimix takea great pleasure in 
teasing me. He'll call ae up (tbe man'a telephone bill 
Bust be close to the natlonsl debt) and tell me about 
the lateat projects at Gimix — after Baking ae promlae 
not even to talk to myself about them. Then t walk 
around bursting to tell people about the b802O-bsaed S30 
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Today' 
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1866 N.W. 114th St. • Des Moines, I A 50322 
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coaputer or whatever. Just before [ left for England he 
called and gradually revealed chat Clalx was in the 
final atagee of developnent on a bH020 Bingle-board 
coaputer aaall enough to ucreu onto a S Inch disk drive. 
Of course t couldn't talk about It. When I came back 
f roa England I found a letter Iron Richard. It eaya 
"Nou thla la oftlclal." I laaglne a ropy of the 
Prellalnary apeca will by tn the Bit Bucktrt of thla 
laaue . 

Richard thlnka of the CIbIk bH020 SBC (Single Board 
Coaputer) as a coapleaent for their large bH020 systen. 
Having thought 4bout It while watching Swaledale sheep 
graze I believe It will be the perfect coapleaent for 
the **Hazelwood UnlQuad. Both boards are aeant to 
attach to b Inch floppy driven. Both run OS-9 bBK. The 
prellalnary Inforaatlon I have f roa Clalx doean't 
include a price, but If It coats between two and four 
thousand dollars for the board a coaplete syfJtea will 
fall Just onu aolld Juap over the UnlQuad (at SIUOO with 
lota of software), 

I picture the Maielwood UnlQuad as the starting 
point tor bHK coaputlng. The Clnlx Hlcro-20 (that's 
what they call it) t^ the upgrade path. It ahould run 
any aoftware purchased or developed for the UniQuad . If 
I'a reading the specs. right, even the peripherals will 
be coapat Ible**. 

With a little care the coapat Iblllty can work both 
ways. A 6H020 In s lot ot coaputer, too auch for aany 
opplicatlona. The bHOOH Is plenty fur a*at applications 
and leas expensive. There's a sbaH problea: the 68008 
Isn't fully coBpatlble with the 68020; Motorola enhanced 
the Instruction set of the 68020. However, if you don't 
use the enhanceaents , the 68020 remaina a fine 
alcroprocesaor and your aoftware will run on any 68K 
faally alcroproceaaor , 

Object code coapat Ibl lity between the 68020 and 
other 68000 laaily coaputers is likely to becooe quite 
an lasue for ua . Otatrlbutlng two sets of software, one 
for the the 68020 and the other for all other 68000s 
isn't going to Make aottware vendors happy. 1 expect 
that aoat people will Just sell software for the 68000 
and let those with 68020s do without soae saall 
perforOAnce galna. Still, in soae cases the differences 
Bight be iBportsnt . Here's ay suggestion: for 
application prograoours : write for the 6B0U0 and use 
syatea libraries as Buch as possible. Only use 68020 
enhanceaents If they aake an iaportant difference, for 
syatea prograaftcrt: uae every feature you can find. 
Spend plenty of effort creating libraries that are 
tailored to each syatea. 



t think OS-9'a atandard fu 
will SBOoth everything over. They 
that are part of the operating ay 
the aodule are accessible through 
any prograa. For exaaple OS-9 
library aodules. Prograss that 
coapllcated aath invoice library f 
library. The library aodule Isn't 
prograa; It's located dynaalcall 
hayc a syatea with a floating 
replacing the aath library aodules 
Bake use of the coprocessor 
prograaa over to the faster 
aodlf Icatlon, 



nction library aodulea 

are aeparate aodulea 
stea. The aervicea of 
trap Inatructiona to 

6ttK Includes two aath 

need to do any 

unctlona f roa the aath 

linked to the calling 

y at run tlae. If you 

point coprocessor p 

with new aodulea that 
ill awitch all your 
ath without any other 



'Holtti package includes 3 mghii single occupancy <if f/ie Mamoll Holoi 

and leglsuaiion loe 

OS-9 and BASICOS »te tiaaemaikt:'^! MiCiOKite and Motorola 



In the caae of 68000 veraua 68020 the difference is 
less clear, but the way of hiding the Incoapat Ibllltlea 
la the saae. 

Processes 

Procaaaea are aaong the toplca that I particularly 
like. You've probably noticed that I Iceep coaing back 
to thea. Thla aonth I'd like to talk about the way that 
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processes are cesllised In OS-9. 
process queues, the procs c 
bits of OS-9 esoterics will co 



Process descriptors, 
nd , and assorted other 
Into this dlscusalon. 



The Froca Con 



snd 



Each proceaa In OS-9 Is represented by a proceas 
descriptor. Each process descriptor describes the 
entire "st^te" of a procesa. Two parts of the state are 
high level; process descriptors are collected In queues 
(lists) ol sctlve, sleeping, and waiting processes, and 
there la a byte In the process descriptor where OS-9 
ssves details sbout the trestaent of the process. 

The stste byte expresses seven attributes of a 
proceas, A running process csn be "Tlaed out" which 
■esns thsL It has run out of Its t Lae allce. It can be 
In need of a DAT update. It can he "condeaed" (to die), 
or dead (but not yet gone). A process csn be In OS-9 
systea stste (processes thst aren't running usually 
are). It can be In a ttaed sleep (or In an untlaed 
sleep), or It can be suspended. 

Active processes arc Just waiting for a turn at the 
processor. OS-9 worries about their priorities snd 
gives esch one a fair share of the processor cycles. 

for sleeping processes OS-9 wstches the clock so It 
can change thea Into active processes after the right 
nuaber of clock ticks. 

Wsltlng proceaaea «tay doraant until aoaethlng 
specifically wskea thea up, Malting processes sre 
waiting for a child process to teralnste; when thst 
happens the waiting proceaa te aade active. A aignal 
can also be ueed to sctlvste a waiting process. 

Soaetlacs the signal that atarta a proceaa going Is 
well hidden. Rcsd snd write service requeata will often 
leave a process lo sn untlaed sleep then start thea 
again without any obvious slgnsls. The slgnsl In this 
caae la hidden. The Interrupt-servlce pert of the 
device driver sends s wskeup signal to the sleeping 
proceaa. 



Starting a sleeping 
take very long, but It 1 
sn sctlve process. A re 
auapended state. 

Suspended processes 
sctlve snd sleeping, 
process queue, but the s 
froa being run. They 
chsnglng the procees sta 
only uaed by processes 
Isn't Halted to that us 
suspend stste. It wss 1 
sod hssn't found Its wsy 
not even been Incorpors 



(or wslclng) process doesn't 
s acre coapllcated th«n atartlng 
cent addition to OS-9 la the 

are stuck In llaho between 

They sre stored In the active 

uspended sttrlbute prevents thea 

csn be activated by alaply 

tua byte. The suspend stste Is 

that are waiting for I/O, but It 

by any restriction on the 

nvented ss s wsy to speed up I/O 

Into other usee yet. It aay 

ted Into all device drlvera yet. 



Ihe three aajor atatea (active, sleep and wait) are 
reflected In the "proceaa queue" that tbe proceaa la 
kept In. There are pointers to the Active Proceee 
queue, the Wsltlng Process queue, and the Sleeping 
Process queue In the systea direct page. They are 
called D.AProcQ, D.WProcQ, and D.SProcQ respectively. 

Three queues sre used for efficiency. At esch 
clock tick OS-9 runs through the Sleeping Proceaa queue 
updating counters snd saving processes that have alept 
long enough to the active proceaa queue. It doesn't 
spend time looking at active and waiting proceaaee. 
When OS-9 wants to start a new proceae It Juat picks the 
first process on the Active Process queue. Actlvstlng s 
process requlrss OS-9 to put It Into the Active Proceaa 
queue at a poaltloo correapondlng to Ita priority. Uhen 
a proceaa teralnatea, OS-9 auat aearch the Waiting 
Proceaa queue for other proceaaea waiting for It. In 
each caae OS-9 haa restricted the nuaber of processes 
under conslderstlon by keeping processes with different 
ststes In different queues. 



t have never been very pleased with the proca 
cooaand. An eaay problea to fix la that the proceaa 
stste la not given In an underatendlbte fora. I can 
never reaeaber what the bite aean. Another coaplalnt 
Isn't eesy to desl with. I use the procs coaaand to 
find out the process nuaber of run away proceeeea so I 
csn kill thea. A looping prograa doesn't ususlly shut 
down ay syetea. Tlae slicing gives other progrsaa tlae 
to run, but for some resson procs doesn't work well at 
all when a prograa la looping. 

Hy theory Is thst It requests each proceas 
descriptor froa 2 through 2ii with a aeparate service 
request. Host of those procees descriptors aren't there 
(t eeldOB run acre than 20 proceeaes st s time) so the 
proce coaasnd prints a few llnee then paueea while It 
checka for about 20U process deacrlptora that aren't 
there. I don't know that that's what proca does, but It 
Is how It behaves. 

It's not very laportsnt , but relscionshlpa between 
proceeeea could be aade essler to see then they are. 

I.et'a eee about fixing proca. It la eaay to give 
the process stste In English. Arrsnglng thea eo the 
relstlonshlps sre visible Isn't very herd either. 
Speeding the coaaand up la hard. Every way to find out 
what process nuabers are In uee la hidden In the ayatea 
address spsce. tven In level one the Inforaatlon la In 
aystes control blocks that are liable to be changed In 
any revision of OS-9. 

The essy wsy to find out whst process Ids sre In 
uee Is to get s copy of the process descriptor block 
table. We can get that froa a user prograa by copying 
It froa the systea address spsce. ror reel elegsnce we 
csn get It with s speclsl SVC. 

The pointer to the procesd descriptor block tsble 
le D.PrcDBT In the syetea direct page. It polnte to a 
2}6-byte table where each byte correaponds to a process 
Id. If the byte Is nontero the proceee Id Is In use. 

The progrsa, ps, Included with this coluan reschea 
Into the eystea sddreee spsce to get the procees 
deacrlptor block table and uaea It to determine which 
process descriptors to requeet froa OS-9. I've written 
the progrsa In C snd used soae fsncy formatting on the 
output. The result Isn't ss pretty ss I would like, but 
I find It ueeful. You csn use ps Just ss you use procs. 

You csn slso sdd to It. I've never ueed the stsck 
pointer vslue In the output froa proca so I didn't 
Include It In ps. You csn sdd It. The DAT laage would 
be Interesting (but big). Chselng down the file nsaea 
attached to the pathe In the process descriptor would 
tske you sll over the systea sddress spsce (snd get you 
In deep trouble st the next updste), but would he very 
useful . 

There sre two coaasnd line options. One la the 
tradltlonsl "s" which aakes pe dleplsy sll processes. 
It will noraally only dlsplsy Inforaatlon sbout 
proceesee owned by the user running It. The other 
coaaand line option Is "s," for short; This aakea pa 
dlsplsy auch less Inforaatlon sbout esch process. The 
coaaand line foraat Is pretty loose. 

0S9: ps s s 
will do the seae thing aa : 
0S9: pa aa 

If your ayatea uses s DAT slse other then 4096 you 
Bay hsve to aske soae chsnges , but give It s try the wsy 
It stsnds first. 
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** Edlcor'n Note: Ic should be noted chac both of chesc 
•yaceaa arc balog aencioned. tilchouc our actually 
knowing If chcy parfora aa advarclaed (or clalaad by 
■anuf accurer) or If chey are actually aupplled aa 
advarclaed, Included all Che aofcuare, cables, 
docuaencadon, ecc. aa proalaed . We have had aoae 
coaplalnc, along cheee line, abouc one of cheae ayaceas. 
HoHevei, eince ic la noc advarclaed In 68 Micro 
Journal, «• have noc aeen one, elcher for noraal produce 
evaluaclon or for advercialog approval. I would cauclon 
you CO InvaicigaCe before apcndiiVi your auney, when 
cooalderlng any new purchaae, 

Alao apeed la an laporcanc faccor Co be conaldered. In 
Che caee of Che 66006. ic la In aany reepecca alowec 
Chan your 66U9 (and even aoae 6600) ayeceaa. Aa for Che 
66020 *C1H1X ayecea, Ic la probably 30 daea feecer Chen 
Che 66006. Of courae, chle would depend on bow auch of 
Che 'enhanced' 60020 code you uae. Aa clae paaees I 
feel chac you will aee a loc aore 66020 code, and a loc 
leaa 66006 code. Sorce like 6600 - 68U9. Soaa experca 
aeea to feel chac Che 66006 la on lea way ouc , and will 
be Che 'forgoccen' 68XXX. 

As CO Che price difference! Ic la a proven induacry face 
chac Che price of chips goea down wlch producdon. The 
difference now In che price difference of a 66008 and a 
68020 ayecea la Che CPU coac. The price of Che 66020 la 
bound CO fall aS haa all ocher devlcea. I can reaeaber 
when Che 6609 waa nearly $100.00. Now you can buy all 
you wane ac $4,9S, Alao Che price difference becween 
Che dlfferenc ayaceaa could well be chac one aay use 
dynoBic (cheap) RAM and Che ocher acaclc (aore 
eapenalve) RAM. And chac one haa pracclcally four (A) 
claaa aore RAM available Chan che ocher. 

•He have aeen che GIHIX 66020 run In che aatnfraae 
ayacea ac NCC, July 198S. Ic la FASTt We will have an 
evaluaclon and ceac CIHIX 68020 Single Board Coapucer, 
for review aa aoon aa chey becoae available. Alao ic la 
felc chac a full caae, power aupply, dlak drlvea 
(Including wlncheacer) will alao be available froa a 
eecond aource Co aake che S8C a very powerful (and 
Inenpenalve) deak cop unlc. The price will be far leae 
Chan wiec chink. Sue aoac laporcanc; WE HAVE SEEN THE 
CIHIX SYSTKM KUN - IT IS FOR BBAL. 



1 (Include <(tdlo.h> 

2 finelud* <o«4.h> 

3 (include <a<M)ul*.h> 
« 

i «d«ftn« KALSC 

6 #d*Mn* TRUE I 

' (del In* D rRCOIT 72 /• addraa* of procaaa doerlpcor block cable 

8 (dellne MTtSIZt 4OTb /' Stie of > MT block •/ 

9 
10 acailc dlracc char all-PALSK. ahorc lllVM-rALSE; /• OpCtona •/ 
I) acstic diracc Inc HylOi 
12 

1} ajln(argc. argv) 
U 
IS 
16 
W 
IB 
19 

20 /•- 

21 • 

22 •- 
23 
24 
2S 
» 
27 
21 
29 
30 
31 
)2 



33 break; 

1» caa« "\0'i 

35 opclon " •■rgv*-^; 
3b ~ar«C! 

37 continue; 

36 dafaulti 
39 6r*sk; 
*0 ) 

♦I ♦♦option; 

42 » 
43 

44 /• • 

43 * Cat Proceaa daacrlptor block * 

46 • cable froa th> araCaa addroa • 

47 • apace. • 

4g > «/ 

49 CatProcTblOi 

iO /• • 

31 * Print procaaa Inforajtlon * 

52 « — ./ 

33 ll(lall) NrlD - gatuldO; 

H (or(pld-2; pld < 236; ><pld) 
33 PrlntProcCpld, 0)1 

36 

37 (UlciU); 

38 I 
iV 

bO ataclc char ProcT«bU( 236) ; 
61 

62 /• 

61 
64 
63 
66 



Cel a copy o( the proceaa daacrlptor* 
block table fro* the a/itea addrcaa ' 
apace. Put the copy In ProcTabla * 



67 CctProcTblO 

68 ( 



int DATIB||2|: /• could get tKay with I •/ 
char SyaOI>|(0_P8CD*T«2)); 
char **pp; 
char 'PTPtri 



OATIi 
MTIi 



■111 • I; 
llOl - 0; 



69 
10 
71 
72 
73 
7* 
73 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

vo 

91 
92 
93 
94 
93 

96 / • • 

I 97 * Invoke th* 0S9 P$CpyHaa lervlea ' 

98 ' roRueat . If there la an error * 

99 * Civ* the error aeaaaga In mmg a 
too * and olt vlth the arror nusber • 

101 a raturnad (roa PtCpyHaa. • 

102 a ./ 

103 CapyNcaico. Iroa, OATtag, alt*, aag) 



CapyNaaCSyaDP, WLL. D4TI^, D_PIC08T*2, 
"Copy of Sy*tea PP fallad"); 

pp - (char ••KSyaDP ♦ 0_P«CD»T); 

FTPCI - *pp: /* PTPtr contalna a pointer to th* P08 Tabla */ 

/* The Proc Deac Slock labia ahould coae vtthtn the 
flrat two DAT block* la the ayatea addraaa apace */ 

tl(<tnl)PTPtr > (D«T*SlZk • 2J) | 

f prlntrCatderr, '*]>flacrlptor table out of range\n'*J; 

amtd); 
I 
CopyHaaCProcTabte, PTPtr. 

OATlatl. (alKol ProcTabU), 

"Copy of ProcTabl* iallad"); 
r*kjrn; 



) 



tnt arge; 
ch*r **argv; 
) 

char aoption; 

Int pld; 



gvaluat* co^aand Una option* 

option - *»*argv; 
■ihlla<argc > I) I 

iwtcchCoptlon) I 



•/ 



ca** a : 
caa* 'A' I 

♦♦all 

break 
caa* '•': 
ca** 's'l 

♦+ihortllne*; 



/* all procaaaa* */ 



/a *hort output 4/ 



104 
1 03 
106 
107 
108 
109 
IIU 
111 
112 

113 
114 

113 
116 
117 
118 
119 
120 
121 



char 'lo, 'Ito 

Int DatImII. alia; 

char •ug; 

1 

acrucC raglater* r*g; 

r«g.rg_a • <lnt)DATlM » 8: 
r*g.rg~b - <lnt}DATiag 4 'Niyp'i 
r«g.rg_« - (roa; /• of fact •/ 

rag.rgjr - ali* i /• length •/ 
reg.rg u • to; 

lK_o*9(P_CPn««<, ireg) " -l> I 
'iprlnlKatdarr, "XaVn", ■*(); 
aalc(r*g.r( b>; 
( 
return; 
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'22 /' : ;i(. 

123 * Ketgrn TKUe 1( process pld * \i) 

124 * exists In CrocTstilc. ■ 

I2s . ./ 218 

126 219 

127 Pracexls[s(pld) 221) 
126 Inc pldi 221 
129 I 212 
1)0 rclurn(ProcTal>Le(pldl) ; 223 
131 ) 

132 

tn /• --• i2i> 

lilt • Hsrk process pld "noc * 22i 

IJi • present" tn PratTsbLe. * 226 

13b s s/ 227 

137 ClesrPrDf(pld) 226 

136 Inc pld: 229 

139 I 2» 

l«0 ProcTiblelpldl • FALSR; 231 

1«1 return; 232 

142 j 233 

'" l\\ 

m /• • 235 

I4i • A Structure describing the • 236 

146 • Interesting parts of a * 237 

147 # process descriptor. * 238 
l«g . / 239 

149 typedel struct pdesc I 240 

150 chsr IP. PIW, SID, CID, 241 

151 'SIi, TsBli, PsgeCnt; 242 

152 Int User: 243 

153 chsr Priority, A«e , Stste ; 244 

154 struct pdeec '(INext : 245 

155 cb«r loqp, lOQN: 246 

156 aod_e>tec •PHodule: 247 

157 chsr SSWI, •SWI2, «SHi3; 2*8 

158 chsr Rec Signs 1; 249 

159 chsr sSliVec. •StgDsts; 2S0 

160 char Oesd locli ID ; 2^1 

161 I PftOCDESC, SPROCDPTR; 2ig. 

162 'define POAT 64 251 

163 Meflnr PIIKSiCSUE ^12 254 

164 255 

165 static direct char FlrstLlne-TRUK; 256 

166 257 

167 PclntProcCpid, lesdlngblsnlis) 2Stt 
166 lilt I'ld: 2S9 
16* lot tesdlngblsnlLs: 260 

"" ' 6 

171 struit r««l«t>fr« rrjj; 

172 «'!•' •C»tHNs«!(). •KnpndSt.li'O; *^ 
M3 register HKjUCUPTK puc; 2|i* 
174 char Sibling; "* 
171 ststlc chsr bultarlliDtSCSlZKl; ", 
176 static char ctlStrlVUl; "' 
IW jfj 
|7« ll(IPcoc)Citl>ts(pld)) return: 2fU 

W9 ,. 271 

180 /* • 272 

381 * Cct the proceaa * 273 

492 * deScriptuT lur pLd * 274 

103 * */ 275 

184 reg,tK_a • pld; 27* 

lal KS.rg"* - butter; 277 

l«t lf(_o««<K_tl'KUSi;. 4te«) " -I) 1 278 

187 fprlntf(stderr. "Krrot m CPrDsc Xd\n", pld); 271* 

1,88 eiltCreg.rg^b); 

189 I 

190 

lit ppcr • buffer: 

192 

193 l((sll II (HylD — pptr->Uscr)) t 

194 ll(shortllnes) 1 /* Short fora output s/ 
192 if(sU) I 

I9(, sprintf(ctlScr, "UXdsls", leadlngblanJta , 

197 •'X-4dt-4d Xa\n"); 

19g prlntf(ctlStr, "", pld, '\xtf' 4 pptr-XIssr, 

199 CctHNuaCbuffer * POAT, pptr->PNcKluIe)) ; 

2QQ J else t /* don't bother to print user ids */ 

201 sprlntfCctlStr, "XZIdsts", leadln^blsnks, 

202 "" «»W); 

203 prlntf<ctlStr, "", pld, 

2Q4 CetHNaMCbulfsi * POAT, pptr->PHa4ule)) ; 

20S I 

20i } alia < /* Long loc* output s/ 

207 If(FlrstLlae) ( /• print heeding •/ 

208 rirsiLlne - faLSK: 

209 prtntf("XaXs\a", "PlD Usr Pty Age SIg", 

210 Stste Nea Nsk"): 

211 t 
212 

213 aprlatf (ctlScr, "XXXdsXs", leadlngblanka, 

2i« "X-4dX-4dX-4dX-4dX-4dX-20i Xbd Xs\a"): 



prlntfCctlStt, "", pld, -\xFF- i pptr->User, 

'\«FF" i pptr->Ptlorlty, 'NsFF' i pptr->A«e, 
'\«PF' t pptr->K«c_Slgnsl, KxpndStste(pptr->State) 

pptr->FsgeCnts256, 

CetHNsmeibuffer * PDAT, pptr->PNodule)) ; 



CleerProcCpld): 

Sibling - pptr->SlD; /• save Sibling tn nsn ststlc store */ 

lf(pptr->C;lO) /• print Info sbuut children '/ 
PrLntFruc(pptr->(;iD, Usdlngblsnks * I); 

If(StbUng) /• print Info sbout sibling •/ 
PrlntFracCSlbllng, leadlngblanks) : 



tdeflne HSUFSIZE 256 



The prloary aodule's naae can only 
be found through the aodule hesder. 
Get the nodule header end follow 
the pointer to thv aodule na*e< 
Chengs the naae Ktrlng to C etrtng 
focBst snd return a pointer tu It. 
This function oay have dlfflcultlcH 
with aodule naiKs aore than 20 
characters long. 



char •CetHNsae(DAT, HodOf(set) 
chsr 'DAT: 

isod_siiec •Hodueiset: 
i 

static chsr buf fec(HBUFSlZt«ll; 

wdenec sHoduleH: 

chsr •NaaeOftset: 

char sptr; 

CopyMsaC buffer, HodOffset, DAT. MBUFSUE, "irror In get nsae"); 
HatJuLeH - (■od_e>ec •)bu(fer: 
NiMUftset - Hodulelt->«_naBS: 
lf((unslgna<l)HsaeOtlset > HBUFSUK. - 2U) I 

CopyMcaCbul ter, (char •iHodUtiaet < (unslgned)NaiaeOtf set , 
DAT. HBUFSUe, 
"£rror tn get nmme 2"): 

(taaeOflset - 0: 
I 

NsBsOftaet - bklffer * (unslgned)NaacOf feet ; 
bufferlNlUFStZKl • 'NO': 
for<ptr - NaacOffset; 'ptr > 0: <-»ptr): 
IfCptr) ( 

•ptr»* 4- "\X?t" ; 
•ptr - *\0'; 
) 



return 



aUttasl ; 



/s 

s (;en«rst« s string thst daacrlbas 
* a process ststs. 



-•/ 



fdstlns S_SYS 126 
fdeflna s SLEEP 64 
Fdellna S TINUUT 32 



260 
261 
262 
283 
264 
265 
266 
2h7 
268 
289 
290 
291 
292 
293 
2«4 
295 

«J 

296 
299 
300 
301 
302 
303 
30* 



fdeflns S_IrKiCIK 16 
Fdeflne S_SUSPeND B 
Meflne S OONDEH 2 

Ideflne S~DEAO I 

Char sEzpndStste(stste) 

Int stste: 

I 

static cbsr s(4lj; 

slOl - '\0-; 
leCstste — 0) 
retumCa); 

atrcpy<a, "<.'"); 

It(etsts 4 S SIS) scrcstCa, "ays "}: 

IKatste 4 s'sutKP) sttcet(a, "alp "): 

IfCatsCS i S TIMOUT) strest<s, "tlaeaut "); 

If (stste 4 S^^MCOIC) atrcat(a, "tag "): 

IfUtsts 4 S_SUSPKHD) s<:rcst(B, "auapend "): 

ie(atate 4 SJSONDVt) atrcat(a, "coadea "); 

tUatate 4 S OEAO) atrcat(a, "dead "): 

a(atrlen(s) - 11 - '\0* : 

strcst(ai ">"); 

rBturn(a): 
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INTRODUCTION 

Thla chapter la Intended to Introduce the reader to aoae 
of the technliuea uaed by C coapllera in tranalating C 
prograaa to aaaeably language, which say then ba uacd to 
produce aachlne code for a particular coaputer. 

The topic of coapilation la ao broad that only a aaail 
part of it Bay be diacuaaed here. Nany booka are 
available (or thoae intereated In a better underatanding 
of coapilation techniquea. In general. The technique* 
uaed by a particular coapiler aay often ba determined 
only by inference froa the analyala of outputa generated 
by particular Inputa. Thua , it la often raaier to atudy 
the theory than the application, In tvrsa of coapllera. 

THEORY 

AlBoat all of the C coapllera on aicro-coaputera are 
■ore or leaa baaed upon Ron Caln'a Saall C. Notable 
exceptiona include l^or Zolaan'a SOS'C for CP/M ayateaa 
and a few of the Full C coapllera (although aoat have 
ultimate roota in Ron Caln'a Saall C). 

Ron Caln'a Saall C (known here for abort aa Saall C) 
eatabllahea a aodel of coaputatlon baaed upon a 
hypothetical computer with two 16-bit regiatera, one of 
which la alao partially 8-blt byte-addreaasble , and an 
8-blt byte-addreaaable aeaory, 

Addreaaea are 16 bita in length, Halting the computer 
model to addreaalng 65536 byte*. The computer haa a 
atack without aevere reatrlctiona, but with limited 
acceaa. The inatruction aet la very amall. Eaaentially, 
Saall C uaea a hlghly-aiapllf led aodel of the 8080 for 
Ita code generation. 

Thla conceptual aodelllng allowa Saall C to generate 
code which executea properly on the 8080 and Z-80 
computera, Integera and pointera are atored and 
proceaaed aa 16-bit algned and unalgned integara, 
reapactively. Charactera are atored aa algned 8-bit 
bytea and proceaaed aa t6-blt algned integera. Since 
Saall C doea not aupport them, no provlaion need ba made 
for long Integara, ahort or long floating-point 
variablea, atructurea, unions, ate, aa aupported by the 
full C compllera. 

Tha extraae almplif ication aakea the Small C coapllera 
auch aaaller and eaaier to uae than the Full C'a and 
alao haa the potential of ganarating better aachlne 
code. In reality, the coda produced by aoat Saall C 
coapllera for the 6809 would ba ranked by knowladgeable 
aaaaably language prograaaera <a quite poor. A few 
offer paaphole optialzera to clean up the worat of the 
bad coda, but the raaainlog code ia atill generally 
poor. Hany of tha coda generation and other probleaa 
with the 6809 C coapllera are cauaed by attempting to 
emulate tha 8080 eaulating the C aodel aachlne. 

Noat of the Saall C derivativea for the 6809 follow thla 
computational aodel, although which aat of 6809 
ragiatera are ua«d variaa by implcmantetlon. Ptc major 



variationa concern the uae of the primary 16-bit 
regiater (the other la aecondary, or acratch) and 
whether char variablea are aign-extended or lero-filled 
when converted to type int. 

Koat Implementatlona uae the "d" regiater aa a primary 
regiater, primarily becauae of ita apllt role aa the "a" 
and "b" 8-blt regiatera, although at leaat one uaea the 
"x" regiater aa a primary regiater. Introl C extenda 
the "d" regiater into the "u" regiater for long int and 
float variablea. 

Several uae the "y" regiater to point to the global 
variable table, although et leaat one uaea the "u" 
regiater for thla purpoae and uaea the "y" regiater aa e 
aecondary regiater. Several Impleaentet lona uae the "u" 
register aa a atack frame pointer Indicating the 
location of the return addreaa to a function, but one 
aeta up two atacka, one for function parametera and 
return addreaaea, and one for local variablea. 

Therefore very few generallzatlona abnut Implementations 
are poaaible, eapeclally in the area of regiater uaage. 

COMPARISON 

To llluatrate the generation of machine code by 6809 C 
compllera, conalder the following almple stateaent: 

1 - o; 

in which tha variable "1" la aaaumed local type "int". 
Aa aaaambler language programmer would probably write 
code similar to the following to accompllah the actlona 
repreaented by the C atateacnt above: 

Idd «$0000 
atd 2, a 

assuming that "1" repreaentad a location in tha atack 
with poaltlve offset of two. This requires two 
instructions, 5 bytes of code, end nine machine cycle* 
to execute. Of courae, thla code ia not unique, and 
might be Improved with a little thought. 



Everhart'a 
aaae state 



Saall C generatea the following code for the 
ent : 



leay 2, a 
tfr y,d 
paha d 
Idd «$0000 
atd ,*** 

under tha aaaa aaauaptiona about the locetion of 
Thla raquiraa five inatructlons, 11 bytee of code, 
27 aachlne cyclaa to execute. 



■i". 
and 



C generetea tha following code for the 



Dugger'e Small 
asme atatement: 

laax 2,u 
pehu X 
Idd #$0000 
atd ,u** 



which requlraa four instructiona , 9 bytea of coda, and 
16 machine cyclaa to execute. Note tha uee of tha "u" 
regleter to point to local variablea. 
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Uordauorch'i Saall C genericc* Che following code for 
the iiae ■cecearnc: 

Idd «$0000 
■Cd 2,u 

which requires two Inetrucclona, i bytes of code, and 
nlDc Bachlne cycle* Co execute, Thla Saall C uses "u" 
CO polnc CO local varlablea, aa does Dugger'a. 

Dyoa-C generatea Che following code for the aaae 
ataceaent : 

Idd f$0000 
atd 2,» 

which la Identical In alee and apeed Co the original 
exaaple and Wordaworch'a Saall C. 

Introl C generatea the following code for the aa>e 
ataceoent : 

clra 
clrb 
atd 2, a 

which requlrea three Inatructlona , 4 bytea of code, and 
ten Bschlne cyclea to execute. Note the trade-off in 
■achlne cycles for bytea of code with other exaaplea. 

For coapariaon purpoaea , UNIX C generates the following 
code for the ease atatencnt In the aa>e context: 

clr r4 

which requlrea one Inat ruction, 2 bytea of code, and one 
■achlne cycle to execute, UNIX C optlnisea the uae of 
regiatera, placing varlablea in regiacera when It Is 
■ore efficient to do ao, even If the "register" 
declaration la not apccifled. 

It is evident thst every C coapller reviewed hss s 
unique asoner of hsodllng even the elapleat ststeaent. 
It should be very clesr thst the aere complex constructs 
would b* hsndled In even aere unique ■anners. 



FUNCTION CALLS AND DEFINITIONS 

Since the C Isnguage dependa ao heavily upon function 
calls, aost C lapleBcntstlons stteapt to opctalze the 
code genersted to cell snd to estsblleh functions. 
However, there sre seversl conflicting gosls which aust 
bs resolved. 

Coapstlbillty Is s ■ajor gosl of ■any C coapllers. The 
UNIX C coapller pieces function srguaents into the stsck 
In inverse order, slthnugh It evslusces thea in 
lef t-to-rlght order. On coaputere with only eleaentsry 
stack ■anipulstion, such ss the 8080) the overhesd 
requlrsd to evsluste the parsaeters sod then to reverse 
their order ■ay be considered excessive by the 
coapiler-wrlter . 

In psrticulsr, in Ron Csln's Saall C coapller, function 
srcuaents sre pushad onto the stsck u they sre 
encountered bscwssn psrentheees. For exaaple, tbe 
following C staCMant: 

function (X.Y.ZO): 

would producs the following 8060 code: 

LKLD X 
PUSH H 
LKLD Y 



PUSH H 

CALL Z 

PUSH H 

CALL function 

FOP B 

POP B 

POP B 



The coapller clesns up the stsck sfter the cell using s 
siaple slgorltha to use the lesst nuaber of bytes. 

Alaost sU Saall C-derlvstlve coapllers (6809 or not) 
follow the ssae scheae for function cells. Also, in Ron 
Csln's Saall C, locsl vsrlsbles sre sllocsted stsck 
spsce, ss required, snd sre ssslgned the current vslue 
of the stsck pointer (sfter the sllocetlon} ss their 
sddrsss. For exsapte, 

Int Xi 

would produce 

PUSH 8 

which aerely sllocstes rooa on the stsck for two bytes. 
References to the locsl vsrlsble X will be made to Che 
stsck pointer -Kl. No psrticulsr Initlsllzed vslue aay 
be aaauaed for local varlablea. 

If another declaration la aade , auch aa the following: 

char array ID; 

the code produced would be the following: 

OCX SP 
PUSH H 

in which caae arraylOl would be at SPt-O, array(l] would 
be at SPi-t , arrayl2] would be at SF4'2, sod X would ba 
at SP+3, Local declaraciooa are allocated only aa auch 
atack apace aa la required. Including an odd nuaber of 
bytea. Function arguaenta alwaya conaiat of two bytea 
each. If sn arguaent la type "char" (8 bita), the aoat 
algnlflcant byte of the two byte value la a 
sign-extenaion of the lower byte. 

Hoat Saall C-derlvatlvea (6809 or not) follow the ssae 
scheae for function estsbllshaent . 

In aost of the 6809 Saall C sdsptstlons, function cstls 
sre lapleaented by brsnch to subroutine instructions. A 
return froa subroutine Is genersted st the end of esch 
function, ss well ss for explicit "return" ststeaents. 

ttefore sny function csll, the psrsaeters (if sny) sre 
evsluatsd froa left to right snd pushed on the stsck. 
Charscter* sre widened to 16 bits (with sign extension) 
when they sre pieced on the stsck. After the csll, code 
is genersted to reaove the psrsaeters froa the stsck by 
adjusting the stsck pointer. Functions which return 
vslues usually do so by plscing the vslue In the "d" 
register, but lapleasncst ions vsry in their aanoera of 
returning valuea. 

At the beginning of each block, code la generated to 
reaerve atorage for local varlablea. To do thla, the 
atack pointer la adjuated downward by the nuaber of 
bytea neceaaary for local storsge. Lncsls sre 
referenced by offsets froa the stsck poioter. At the 
end of esch block, or when bresking out of s block, the 
stsck pointer Is sdjueted upwsrd to reaove the locsl 
vsrlsbles. 



Following is the stsck frsa 
function csll: 



conf Igurstlon for s typicsl 
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high addreaaes 



• tack 
growa 



low addreaaea 



atack pointer 



<— 16 — > 

L 
L 



The addreaa 
bycea. 



of 



la Che flrat of Che five reaerved 



funcclon'a local 
acorage 



caller'a ceaporary 
acorage 



funcclon paraaecera 



recurn addreaa 

funcclon'a local 
acorage 



funcclon'a ceaporary 
acorage 



Aa In Ron Caln'a Saall C lapleaencaclon , funcclon 
arguaenca are puahed onco Che acack aa chey are 
encouncered between parencheaea. ly deflnldon, 
paraaecer paaalng la "call by value". 

For «Kupla, 

f unc(a,b,c); 

la coaplled Inco 6609 code alallar Co Che following: 

Idd a, per 
paha d 
Idd d,pcr 
paha d 
Idd cpcr 
pahe d 
Ibar func 
leaa 6, a 

lach local variable la allocaced aa such acack apace aa 
Ic re^ulraa, and la Chen aealgned Che currenc value of 
Che acack polncer aa lea addreaa. For exaaple, 

Inc x; 

would produce 

leaa -2,x 

which allocacea 2 bycea on Che acack for cha variable 
"x". The following declaracton: 

char y|5); 

would produce 

i««a -5, a 



The Saall C coapller allocacea Che apace required by 
each variable declaradon. Funcclon calla alwaya 
allocace cwo bycea per variable. All "char" variables 
of 8 blca are algn-exctinded Co 16 blca before being 
placed Inco Che paraaecer llac In Che atack. 

The calling funcclon la reaponalbla for eacabllahlng Che 
acack In ceraa of funcclon arguaenca and recurn addreaa. 
The called funcclon la reaponalble for allocaclon of 
acack apace for local varlablea and for enaurlng chac 
Che acack polncer la correccly reacored before Che 
recum. 

The exacc aeang of puahlng valuaa Inco Che acack, 
calling Che funcclon, and correcclng Che acack polncer 
are uaually very alallar Co Che aodel above, alchough 
chere are aoae aarlatlona In lapleacntatlona aaong Che 
Saall C derlvadvea on Che 6609 and aajor varladona 
aaong Che Pull C coapllera. The aodel Juac provided 
deacrlbea Everharc'a and Uordaworch'a acheowa ataoac 
exaccly, and la very alallsr Co Dyna-C'a acheae. 

In concraat Co Che funcclon call aechod Juac deacrlbed 
la Che mchod uaed by Incrol C. Uhen a funcclon la 
called In chla lapleaencaclon, Che aecond chrough laac 
paraaecera are flrac puahed on Che acack In Che reveree 
order of chelr apeclf Icatlon. The flrat paraaecer la 
loaded Inco Che accuaulacor. Char valuea are 
converced Co loc when paaaed aa a paraaecer. A branch 
to aubroudne la Chen uaed Co call Che dealred funcclon. 
Afcer Che funcclon recurna, Che area In Che acack uaed 
for paraaacera la freed. 

For exaaple, Che following funcclon call: 

f(a,b,l+2> 



would generace 
Incerprecadon: 



6609 



code with Che following 



puah Che value of 1+2 

puah Che value of variable b 

load Che value of variable a Inco d 

call funcclon 

deallocace 4 bycea froa Che SP 

(cocal puahed paraaecer alze) 

Uhen Che funcclon la encered, Che acack fra 
configured aa followa: 



la 



acack contenca 

Che value of (1*2) 
Che value of b 
SF -> recurn addreaa 



of faec 

SP-f* 
SP+2 
SP+0 



If a funcclon requlrea auco acorage locaclona, ic 
allocacea chea below che recurn addreaa of Che acack 
fraae deacrlbed above. 

Suppoae Che funcclon f() haa Che following declaration: 

f(x.y,»> 
loc x,y,xi 

{ 

loc b; 
char a; 
I 

} 

The funcclon would expect Ice paraaacera co be In Che 
acack fraaa aa deacrlbed above. TKa funcclon will ofcen 
aava paraaecer one (paaaed In cha reglater) lo the 
acack Juac under tha return addreaa. Afcer eocarlog cba 
funcclon. che acack polsCar would be aodlflad Co allow 
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Che storage of a and b below the return addreaa of the 
acack frame. The new acack fraae would have the 
following configuration: 



atack contents 

the value of z 
the value of y 
return addreaa 
the value of x 
variable b 
SP -> variable a 



offset 

SP+9 
SP+7 
SP+5 
SP+3 
SP+1 
SP+0 



Note that char variablea uae only one byte aa auto 
variables. The only case In which they are allocated two 
bytes is when they are paased aa paraneters. The 
function haa the reaponalbllity of "cleaning up" after 
itself by reaovlng the allocation of variablea a and b 
froa the atack. Allocating nenory fron the atack ia 
accoapllahed by aubtracting the dealred nuaber of bytea 
froa the SP and ualng the area between the new SP and 
the old SP. Deallocating oeiiory fron the atack la the 
opposite: add the nuaber of bytes to deallocate to the 
SP. 

The Hicroware/HcCoah C coapilera uae a stack frane 
foraat different fron any of those described above. It 
reverses the order of the parameter valuea, aa perforoed 
by the Introl C coapller, but it doea not place the last 
paraaeter in the "d" reglater. 

Suppoae the function f() haa the declaration provided 
above . 

The function expecta ita paraaetera to be in the stack 
fraae as described below. After entering the function, 
the stack pointer ia decrenented to allow the atorage of 
a and b below the return addreaa and the U and Y 
regiatera. The atack (rase would then have the following 
configuration: 



stack contenta 

the value of i. 
the value of y 
the value of x 
return addreaa 
U-regiater 
Y-regiater 
variable b 
SP -> variable a 



offset 

SP+1 3 

SP+1 1 

SP+9 

SP+7 

SP+5 

SP+3 

SP+1 

SP+0 



Unlike the case in Introl and the 680S Small C'a, 
Hicroware/HcCoah paraaetera occupy only the stack apace 
neceaaary for the corresponding types. Thus, if x, y, 
or z in the exaaple above had been declared type char, 
they would have occupied only one byte of atack apace, 
and the aucceaatve paraaetera would have been ahlfted 
down in the atack. 

In all C lapleaentationa, the stack pointer auat point 
to the return addreaa in the atack when the function is 
coaplete. It >uat alao point to an ares large enough to 
hold all of the local variablea of a aeriea of functions 
at their deepeat nesting level, allow rooa for the 
paraaetera and return addresses, lesve apace for any 
temporary variablea that eight be used on the atack, and 
allov rooa for aaving the ayatea atste if the prograas 
are to be run in an interrupt environaent. 

OPTIMIZATION OF CODE 

Since many Saall C coapilera on the 6809 are derivativea 
of the original 8080 Saall C, onich of their code 
generation i« oriented toward the 8080 aodel of the C 
■odel aachine diacuaaed earlier. Thla providea the 
potential for two levela of inefficiency in code 
generation. 



The nost obvious level ia in the alaoat literal 8080 
eaulatlon exhibited by aeveral of the coapilera, auch aa 
in Everhart's Saall C. Recall that five inatructtona , 
11 bytea of code, and 27 aachine cyclea are required in 
Everhart'a C coapller to perfora what other Small C 
coapilera could perfora in two Inatructiona, 3 bytea of 
code, and nine machine cyclea. 

Because of the Hatted atack manipulation capabilities 
o( the 8080, allocation of local variable atack apace la 
uaually accoapllahed by one PUSH B instruction for each 
int variable or array eleaent. Adjuatnent of the stack 
pointer after a function haa been completed ia uaually 
accoapllahed with the correapondlng POP B inatructtona 
for each local variable and paraaeter. 

Everhart C (at least psrtlslly) aalntaina thia 
llaitatlon into the 6809 code with the uae of one leaa 
-2,s for each PUSH B rather than the uae of one 
equivalent leas -n,a instruction. 

Rather than atteapting to correct Che code generation 
algorithaa, Everhart and Wordaworth Saall C aysceaa 
provide "peephole opttaixera" to locate the worat and 
aoat frequently-occurring inefficient code sequences and 
change thea into ahorter, more-efficient code aequencea. 
These optlalzera were covered in an earlier chapter. 

Carl Krelder haa provided a better peephole opclaizer 
for Everhart'a C to clean up additional, longer 
sequences. Everhsrt's optimizer reaoves redundsnt atack 
aanlpulation and aodifiea two coioian aequencea of code, 
achieving a ten to thirty percent reduction In code. 
Kreider'a iaproveaenta net an additional five to fifteen 
percent reduction. Hia optiaizer converta the following 
aequencea: 

opcialzat ions 
froa to 



leay p,a 
tfr y,d 
paha d 
Idd [,a++| 

leay p,a 
tfr y,d 
psha d 
Idd «n 

atd |,a++| 

leay p,a 
tfr y,d 
paha d 
leay q,a 
tfr y,d 
paha d 
Idd l,e**\ 

leay p,s 
tfr y,d 
psha d 
Idb [,s++| 

leay p,s 
tfr y,d 
psha d 
Idb «n 
atb [ ,a++| 

leay p,a 
tfr y.d 
paha d 
Ibar label 
atd |,a++| 



Idd p,a 



Idd #n 
atd p,a 



leay p,a 
paha y 
idd q,a 



Idb p,a 



Idb #n 
atb p,a 



Ibr label 
atd p,a 
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leay p,e Idd p,e 
cfr y,d addd #n 
pcha d acd p,a 

Idd I, a) 
addd fn 
acd l.evf] 

Icay p,a Idd p,a 
tfr y,d aubd fn 
paha d ecd p,s 

Idd I, a) 
aubd fn 
acd [.a-t-*] 

A aore aubcle aource of Inefficiency concerna Che 
original C aodel of coapucaclon. Since ic lacka a 
condlclon codea reglacer (called a flaga rcglaccr on Che 
8080), excra aequencea of code are required Co capcure 
Che reaulta of coaparlaona and ocher operaclone. For 
exaaple, a 6809 aaeeabler language progra^aer alghc uae 
a ae<]ucnce alallar Co Che following Co coapare cuo 
alKCeen-blc nuabera for equallcy: 



idd 1 
c»pd J 
bne label 
: (1«J here) 

label 



whercaa a 6809 aeaeabler language prograaner reaCrtcced 
CO Che hypochedcal C aodel coapucer Inacrucclona alghc 
uaa a aequence alallar Co Che following: 

Idd 1 
capd j 



bne labell 
Idd »$0001 
bra labelZ 
labell Idd »S0000 
labelZ capd »$0000 
beq label} 
: (1-J here) 

label] 



Few of Che Saall C derlvaclvea on Che 6809 have cocally 
broken free of Che conacralnca on reglacer uaage Inpoaed 
by Che original C aodel, probably bccauae of Che 
conccpcual dlfflcutclea of foraulaclng a new aodel and 
rewrlclng Che coapller aufflclencly well Co laprove on 
Che original aodel, reacrlcced aa Ic la. 

Beyond Che peephole opclalzera and general code cleanup 
are Che global code opclalzera uaed by aoae of Che Full 
C coapllera. Racher Chan ealcclng cargec-coapucer 
aaaeabler language directly, chey eaic an Interacdlace 
language repreaencaclon of Che prograa. Thla 
repreaencacion la uaually acaced In ceras of en 
operaclon and cwo or chree paeudo-addreas, ofcen called 
a "cuple" or "quadruple". Froa chla rcacruccured 
veralon of Che original C prograa, aany levela of 
opdalzaclon aay be perforaed. Including aucoaaclc 
reglacer aaalgnacnc and reaaalgnaenc , Che reaoval of 
cooacanc expreaelona froa loopa , Che delecion of 
redundanc coapucactona , ecc. 

The order In which Che opclatsadon phaaea aay be 
perforaed by a full opclalser la aa followa: 

1. Inceracdlace language Co quadruplea 
Z. baalc block analyala 
). flow analyala 



A. juap opclalzallon 
b, allaa analyala 

6. baalc block opdalzaclon 

7. daca flow analyala 

8. loop analyala 

9. loop opilalzadon 

10. reglacer analyala 

11. quadruple to final language 

Alchough no known 6809 C coapllere are capable of (ull 
optimization, aeveral (Including Incrol C) perfora aoae 
opdalzaclon phaaea llaced above. UNIX C concalna a 
full opdalzer, aa doea ZILOC C/8000. 

Since Che code generaced by aoec currenc 6809 Saall C 
coapllera la ot generally low quallcy, Che uae of 
coapllera wlch full opdalzaclon capablUclea 1« alaoac 
cercaln Co Increaae. Aa ahown by Che caae of tncrol C, 
global opdalzaclon, even on a Italced acale, le well 
worch Che clae, efforc, and coac. 

t>ecau«e of Che pocendally excreaely high deaanda on 
aeaury apace aod CfU dae, opdalzaclon ahould be 
aeleccable froa none, chru local and pardal global, co 
full global. Properly perforaed, local (peephole) 
opdalzaclon will alwaya laprove Che code In ceras of 
Inacrucdon, byce, or cycle count. Global opdalzaclon 
rellea on algorlchaa baaed ac leeac pardally on 
acadadcal analyala and aay noc produce beccer code 
Chan chac produced froa prograaa wrlccen by experienced 
C prograaaera. Uhen debugging C progreaa. all (or all 
global) opdalzaclon ahould noraally b« auppreaaed 
becauae ic will probably require aore eyacea reaourcee 
CO coaplle Che prograa Chan Co execuce ic one dae , and 
becauae che generaced code aay very well noc be 
recognizable on a ecaceaenc-by-acaceaenc baale. 

CROSS-COHPlLATtON 

Juac aa croae-aBaeablera aay bn uaed Co produce objecc 
coile for a dlfferenc cype of coapucer Chan chac ueed Co 
aaaeable Che prograa, croee-coapllere aay be uaed Co 
produce code for a dlfferenc cype of coapucer Chan chac 
uaed CO coaplle Che prograa. 

The organlzedon of aeveral of Che C coapllera. 
Including Ron Caln'a Saall C and Che UN!X Porcable C, 
greacly faclllcacea developing auch croaa-coapllera by 
ayaceaadcally aegregadng Che language acaaolng, code 
ealaalon, and funcdon library funcdona. 

Nodular croae C coapllere ahould be reaaonably elaple Co 
develop, given a properly-acruccured C coapller baee. 
Thla would be a boon Co cbe wrlcera of aofcware for 
alngle-board coapucera baeed upon auch proceaaora aa cbe 
Nocorola 6804/6803, Zllog Z8, or Incel 8048/80A9/8031 
aerlea, chua freeing chea froa aaaeabler language coding 
for non-crlclcal appllcadona. Incrol offera aeveral 
auch croae-coapllera for varloua aachloaa, Including Che 
6803. 

SUHHARY 

Thla chapter preaenced aevejral of Che cechnlquea and 
conalderadona In Che uae of C coapllera In cranalaclng 
C prograaa Co an aaaeabler or objact language. Thla 
cargec language aay be for Che aaaa or dlfferenc claaa 
of coapucer. The code produced aay be furcher refined 
wlch opdalxadon operadona. 
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PART 6 - ADA'S SUBFROCRAHS 

Subprograms are found In virtually every progre^lng 
language, so auch so thst the bsslc aschlne code 
Instruction set of nesrly every coaputer contslns 
Instructions desllng with subprogrsas. In aost 
Isngusges, howsver, subprogrsas sre considered useful 
becsuse they peralt sn algorltha thst Is used repestedly 
In s progrsm to be coded only once ss s subprogrsa, 
rather thsn repestedly esch tlae It Is used. In the Ads 
Isngusge, subprogrsas slso provide s aesns of spplylng 
the softwsre engineering design festures of aodularlty, 
Inforastlon hiding, snd sbetrsctlon of the slgorltha 
lapleaented by the subprogrsa. Ads's subprogrsas 
coaprlse two toras thst differ prlndpsUy In the manner 
In which they coaaunlcste with the celling environment , 
These foras sre 

procedure-'-coaauiiteatas with the celling 
envlronaent through the use of 
psrsaeters 

function — receives Inforastlon froa the celling 
envlronaent through the use of 
psrsaeters, but csn return Inforastlon 
only ss s vslue of the function naae . 

In genersl, subprogrsa persaatere csn be of sny Ads dsts 
type, ss csn the result returned by s function csll. Ads 
subprogrsas aay elso coaaunlcste with their celling 
envlronaent through the use of globel verlsblee, but such 
coaaunlce t Ion Is ueuslly considered to be poor 
progrssBlDg prsctlce. 

As with the other Ads progrea units — psckegee snd 
tesks — subprogrsas hsve s two psrt foraat consisting of 
the speclflcstlon psrt snd the body, with the following 
fuoctlons: 

-speclflcstlon--glvee the nsae of the subprogrsa, 
together with the psreaeters snd 
their sssoclsted dsts types. For 
s function, the dete type of the 
result Is slso given. 

'body --contelne the lapleaentstlon of the 

slgorltha represented by the 
subprogrsa. Tti« body contslna the 
executsble code of e eubprogrsa. 

The eubprogrsa epeclf Icetlon contslne all Inforastlon 
necesssry for ues of tbe eubprogrsa. Thst Is, s 
progcsaasr developing code for the calling envlronaent 
needs only the following Inforastlon: 

-tbe eubprogrsa nsaa 

-the nsaea end typee of the paraaetera 
-for a function, the type of the reault 
-the effect of the algorltha 

The flrat three Iteaa are contained In the aubprograa 
epecUlcatloDi while the laac requlree only e deacrlptloo 
of the elgorltha--not e detelled koowledRe of the 
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lapleaentetlon. It Is helpful to draw an analogy to the 
Integrated circuit package, for which the plnout 
errangeaent repreaents the Interlace with the uaer, while 
the phyalcal propertlea of the chip itseU conatltutee the 
lapleaentetlon. The user of the Integrated circuit 
package auat know the Interlace detalla--the pin 
connecttone — and the effect ol the lapleaentetlon, but he 
need not be concerned with the detail of the 
laplaaentatlon--ln this case, the phyelcal propertlea of 
the chip. Juat as the Integrated circuit package Is an 
abatr^ctlon of the alcro-clrcultry on the chip, ao alao ts 
the epeclf Icatlon of a aubprograa an abatractlon ol the 
lapleaented algorltha. Thla aaae concept appUea, and to 
an even greater extent, to packagea and taaka. 

Kach aubprograa paraaeter. In addition to being of a 
apecltlc data type, alao haa an aaaoclated aode . The 
paraaeter nadea are: 

-In — Inforastlon flow le froa the calling 

envlronaent to the aubprograa only. 
Paraaetera apeclfled aa lo paraaetera are 
treated aa conatanta within the 
aubprograa; their value cannot be 
changed. 

-oat — loforastlon flow la froa the aubprograa 
to the calling eovlronaent only. 
Paraaetera apeclfled aa oac paraaetera 
auat have e value aaalgned within the 
subprogrsa. 

-In aQC--lnforastlon flow le both froa the celling 
envlronaent to th« subprogrsa, snd froa 
the subprogrsa to the cslllog 
envlraoaent . Vslues of la o«t psrsaeters 
csn both be used snd ssslgoed within the 
eubprogrsa. 

While procedures aay hsve sny coablnstlon of Ia, out, snd 
Id oat psrsaeters, functlooe sre restricted to la 
P'i''MeCers. Also, the la aode Is the defsult. 

The speclflcstlon of s slaple procedure Is shown 
below: 

proe^aie SWAP_BITS(B1T_1, BIT_2 : la oat BOOLEAN]; 

The two psriimetsrs sre of the type BOOLEAN, snd they sre 
to oat psrsaeters. This ep«clflcstloo> together with the 
deecrlptlon of the slgorltha, ss given below, 

"Procedure SWAP BITS Incerchangea the valuea of the 
two paraaetere BIT_1 and I)1T_2." 

aufflce to peralt a user to avail hlaeelf of the eervlcea 
provided by the procedure. No knowledge of the 
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laplcacntatlon decali contained In cha procadure body la 
nacaaaary. Tha aaparata coapllatlon faacura of cha Ada 
languaga peralca coapllatlon of aubprograa apaclflcatloaa, 
ao that cha apaclflcatlon glvan abova can be coapUad 
Into a library unit and can ba rafarancad~for coapllatlon 
purpoaea~by othar prograa unlta. 

Calla to uubprograaa ara rathar atandard; tha 
procedure call la an executable atataaaat and conalata of 
the procedure naae followed by the paraaeter Uat. A 
function call, on the other hand, la an expreaalon aad 
therefore auat appear on the right hand aide of an 
aaalgnaent atateaent, or la aoae other context that 
lapllea the evaluation of an expreaalon. A call to 
procedure SWAP_tITS alght be 

SWAP_BITS(A,B)) 

where A and B are the actual paraaetttra to be aaaoclated 
with foraal paraaetera BlT_i and BIT 2. Thla particular 
fora uaea poaltlonal aaaodatlon of the actual aad foraal 
paraaetere; that la, actual paraaeter A la aaaoclated 
with foraal paraaeter BIT_1 becauae both occupy the flrat 
poaltlon In the paraaeter Hat. Tha Ada language alao 
aupporta naaed aaaodatlon In aubprograa call*. For 
exaaplc, the call to procedure SWAP BITS could be written 



SMAP_BlTS(BIT_l -> A, B1T_2 -> B); 

or even aa 

SWAP_BITS{B1T_2 -> B, BIT! •> A): 

alnce poaltlon la of no conaequence when naaed 
aaaodatlon la uacd. 

Function calla have alallar propertlee. The 
apaclflcatlon 

fuoctlatt H)UND( VALUE : FLOAT) ntnra FLOAT: 



coaaunlcatlon, but their uae la noraally conaldered poor 
prograaalng practice. 

All aubprograaa In aa Ada prograa are recurelve; 
that la a aubprograa aay call Iteelf aay nuaber of tlaee. 
Subprogcaaa are alao reentraat, aeanlng that aore than 
one coacurrently executing teak aay be executing la any 
given aubprograa alaultaaaoualy. 

The generic unlta of the Ada language coaprlee 
generic eubprograas and generic taaka. The apaclflcatlon 
of a generic aubprograa haa an additional part called the 
generic foraal part, aad thla foraal part aay contain 
generic foraal paraaetera. Without going Into great 
detail, an exaaple of a generic procedure can be uaed to 
llluatrate the coacept. The epeclf Icatlon and body of 
geaarlc procedure SWAP are given below: 

aeaerlc 

tjjM ELEH la private; 
procedure SUAF(VAL_1, VAL_2 : la oot ELElt) ; 

procedure SUAP(VAL 1, VAL_Z : la out ELEH) la 

TEMP : ELEH; " 
bcgla 

TEHP :- VALl ; 

VAL 1 :- VAL_2; 

VAL~2 :- VAL_1 ; 
eod SWAP; ~ 

The elallarlty to procedure SUAP_BITS la laaedlately 
noted, aa la the addition of the generic foraal part 
following the reaervad word gaaarlc. Both the 
epeclf Icatlon and the body aay be eeparately coaplled. 
When thle aubprograa la coaplled, the preclae data type 
laplled by the Identifier ELEH la not known. Rather, thla 
loforaatlon la auppUed by a proceaa callad laatantlatlon- 
-the creation of an Inatance of the generic aubprograa. 
An Instantiation of procedure SWAP la effected by a alogle 
Ada declaration. For exaaple. 



declarea a function with one paraaeter of aode In. The 
value returned by the function le of typ* FLOAT. A call 
to function round alght take the foin 

1N>EX ;- XOVNDCNUH); 

ualng poaltlonal aaaodatlon, or perhapa 

INDEX :- gOUUXVALUI •> MUX): 

ualng aaaed aaaodatlon. The fuactlon call 1* an 
expreaalon on the right hand aide of the aaalgnaent 

atateaent. 

While a aubprograa apaclflcatlon aay be aeparately 
coaplled and then referenced by other prograa unite, the 
body of the aubprograa auat eventually be coaplled. In 
the caae of procedure SWAP_BITS, the body alght be 
lapleaanted aa 

proc^ura SWAP_B1TS(BIT_1. BITZ : la oac BOOLEAM) ta 



TEMP 


: 


bool£am: 


TEMP 




BIT i; 


BIT 1 


:■ 


BIT 2; 


BIT Z 


;■ 


TBtP; 


SWAP BITS 


i 



The procedure body haa a declarative part and a aaquence 
of atataoanta. Declaratlona aada In the dedaratlve part 
of a aubprograa body have a acope that extaoda only the 
end of the aubprograa body. Thue, the variable TEHP 
declared above caanot be referenced by aay other prograa 
unit. Thla feature la In coaaonaace with tha coacept of 
the aubprograa apaclflcatlon aa the Interface between the 
aubprograa and any other prograa ualt. That la. the only 
coaaunlcatlon between a aubprograa aad the calllag 
envlronaeat la through tha paraaetar llat. A* Indicated 
prevlouely, global varlablea aay alao provide 



procedure SWAP_B1TS la 
or equlvalently 



SWAr( BOOLEAN); 



procedure SUAP_BITS la iw« SWAF(ELKH •> BOOLEAN); 

createa (or Inatantlatea) a aubprograa fully equivalent to 
that whoee declaration waa given earlier. The effect 
here la that the generic forael paraaeter ELKM la 
replaced by the actual paraaeter BOOLEAN wlthla the 
Inatantlated aubprograa. Furtharaore, the generic 
aubprograa can be Inetantlated any nuaber of tiaes with 
virtually aad data type eupplled aa the actual paraaatar. 
For exaaple, the Inatantlatlon 



pri 



r« SWAP FLOAT la new SUAP(ELEH -> FLOAT); 



Inataatlatea a procedure that will exchange valuea of 
type float. Nor la the actual paraaeter Halted to 
ecalar data typea. Por exaaple. If type DATA !• aoae 
coaplex data atructura — an array of recorda, for aiaaplc- 
-than the Inetantlatton 

ptoc^vre SUAPDATA la new SUAF(KLKM -> DATA)) 

createa a procedure that will laterchange the valuaa of 
two objecta of type DATA. 

Generic foraal paraaetera can be data typea, aa In 
the exeaple of generic procedure SWAP, or they can be 
varlablea or even aubprograaa. Tha genarlc feciJltlaa of 
the Ada language offer proalaa for advaacaa la reuaeable 
aoftware. But It la la tha generic package, rather than 
In the generic eubprograa, la which the greataet proalaa 
Ilea. 

NaXT: Ada'a Packagea. 

a 
Ada la a tradeaark of the U.S. Oepartaaat of Defaoaa. 
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POKIM* AROUND PASCAL 



This Is an enclclng month for ae . Aoong other 
things, I got soaethlng 1 have always wanted. I can now 
run OS-9 Pascal on the Color Cooputer. Owning a Pascal 
coapller han been a secret passion of mine for years. I'a 
not lOOZ Dure of the reason. Maybe It's because Pascal 
does not encour<tge using line nuoberu In prograas. 
Perhaps its structured program stateaenta like 
WHILE. ..DO or REPEAT. . .UNTIL attracts ae . And there ts 
Ita free-foraat style and block structures. Whatever the 
reason, Pascal la heri: for Coco OS-9. 

The Pascal is available froa Radio Shack for the CoCo, 
but it is actually the Microware OS-9 Pascal version 2.0 
in CoCo US-9 format. So whether you use RS'a version or 
Hlcrowdrc's, you'll be able to run the aaae programs on 
your OS-9 syaten. In fact you should b« able to take a 
program from almost any source, compile It, and run It. 
The only probleas that you might run into would be in 
using a UCSD version of Pascal since OS-9 Pascal is based 
on the ISO Standard. 1 picked up a few Paacal books from 
the library, tried soae of the prograas in them and they 
worked. 

Pascal Is not tike other languages such aa Baalc and 
Fortran. It muat be written in a particular fashion. 
There are three parts to any program. They are, In the 
order that they aust appear In the program, the 

program heading, the 

daclaratloa aectioo, and the 

executable aectlon. 
The prograa heading consists of the word "prograa", a 
name for it, and a Uat of external data fUea to be used. 
The program called "graph" would be started: 

program graph(loput,output>: 
The files declared here are "input" and "output" which are 
the Standard Input and Standard Output Paths In 0S~9. 

The "declaration aectlon" la where variables are 
created. All variables must be declared before using 
them. In a language like Fortran or BASIC you can create 
new variables on the fly. Not so with Pascal; add a 
variable without declaring it and the compiler will let 
you know about it (In computerese, we would aay, In this 
case, that the coapller will "complain vigorously"). In 
the variable declaration aectlon you alao state the type 
of variable you sre using. Here is an example of how 
variables might be declared: 

VAR 

aua: real; 
average: real; 
count: loteger; 
If you don't like the standard variable typea, you can 
create you own with the "TYPK" statement. With It, 
arrays, complex variables, aubrangea, and even new 
variables, can be created. Here 1 created aome new 
variable types: 

rvrt 

dayaofthctMek-(auD,aon,tue,««d,thur. 
frl.aat): 

■vekdaya-BOa.. .frl; 
VAR 

day: dayaoftheweek; 

workday: weekdays; 
These are totally new 'variable types' that did not exiat 
prior CO creating thea. In languagea like BASIC there ia 
no way to do thia. Ona other thing, in Pascal you can 
hav* conatanta. They ar« daclared: 



CONST 

pi-3.14; 
apace-' '; 
When the program Is complied all occurrences of the 
constant name are replaced with the actual value. 
'Constants' are very handy for defining "Computer System 
Specific" values, because they allow the prograiuwr to 
simply change that constant and re-complle the program to 
make It run on a different Computer System. For example, 
if you are writing » program that wilt be ualng the 
Display for soae of ita output, you might define a couple 
of 'Constantii' as follows: 
CONST 

DlaplayWldth-32; 
DlaplayOepth-16; 
for the CoCo's normal 12x16 Display, and then change 
these to "80" and "24" and re-compile the program for a 
program that would run on a standard 80x24 Display 
without having to go through the whole program (which may 
consist of thousands of lines of code) to change every 
number which pertains to the Width and Depth of the 
Display. 

One other thing is In the "declaration section". It 
contains the procedures and functions that are used by 
the main program. Paacal requlrea that they coae before 
the program (Pascal inalata that AMYTHUC that la going 
to be uaed in the program muat be defined before It can 
be used, and to keep the Compiler simple. It expects 
these definitions to be In a certain order). You are 
telling the compiler ahead of time what will be used. 
Procedures are subprograms that pass paraaeters In the 
calling Ust, like: 

checkalgn(nuaberiaign); 
where "checkslgn" Is sosie procedure that has been defined 
earlier. "Sign" might be aome Indicator to whether 
"number" Is positive or negative. A function la a 
subprogram whose naae contains the returned information. 
A call to a function alght appear: 

a:<^eclprocal(ouabe r); 
This functions Cakes "nuaber" and returns to "a" its 
reciprocal. 

Kdlcora NOTS: The teras "Procedure" and "Function" are 
a aajor source of confusion to anyone reading auch of 
the "Coaputer Literature' of today. Both refer to a 
self-contained routine that accoapllshes soae specific 
'Job' (to stay away froa the word 'function') within a 
Prograa, and usually end up as a "subroutine" In 
ssseably language. Generally, the difference between 
the words "Procedure" and "Function" follow the Pascal 
terminology In that a "Procedure" performs a function 
within the Program that doea not return aome value Co 
Che portion of the program that called that procedure. 
For example, a 'Procedure" Bight Clear the DIaplay 
Screen; It clears the screen, but doaa not return 
aoaething Co the statement that called It. On the 
other hand, a "Function" sccompllshes soma Job and 
returns the result back to the calling atatenant In the 
prograa. Again, for example, a "Function" might find 
Che Hlnlmum Value of a Hat of Numbers, and retura this 
nuaber back to the atataaanc that called it. Oaa of 
Che priaary exceptions to tbla Interpretation la the 
"C Prograaalng Language, where everytblag Is a 
'function*; ao It goea In this Industry where the 
preclalon of an expreaalon determines whether a Prograa 
will run correctly or noti If you are not totally 
confused by now, you either do not understand the 
problea or have fought Ic long enough to have developed 
your own Interpretation of what the two teras SQOIILD 
■can«>. — tto — 
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Finally, [here la the "executable aectlon". TMa la 
the aaln prograa. It atarta with a "BECW and ends with 
a "BND." (note the PERIOU after the word END; thla la a 
apeclal END In Paacal which aeana "there ain't no nore Co 
thla Prograa"). Everything between theae two keyworda la 
executed, except coaaenta which are encloaed by "( )" or 
"{* *)"• The body of the prograa la aade up of functlona, 
procedurea, and Paacal atruccurea. TViere are i typea of 
atructurea. 

The flrat la: 

WHILE boolean expreaalon DO 
atatement; 
It executes aone atatenent aa long aa the boolean 
expreaalon la true. A alaple counter to go froa I to 10 
could be written aa: 
count:-!; 

WHILE count<-10 DO 
count :-counC+l; 
Mere, "count" la aet to *1' and then Increoented until it 
reachea ~10*- The ":-' la the aaalgnaent atateaent which 
aeta the left tera equal to what la on the right. (Again 
note the preclalon In teralnology of Paacal — tlw ":-" 
Indlcatea that the variable on the left becoaea the value 
of the expreaalon on the right. In BASIC, we aay that 
"AaA+1", yet we have been taught froa the flrat grade that 
"} ia NOT equal to >fl". In Paacal, ':-" la an asalgoaent, 
while "-" really aaana ~la equal to".} The while 
■ tructure nay never execute If the boolean expreaalon Is 
Initially falae. 

A atructure that worka like the prevloua one la: 
KEPKAT 

atateaent 
UNTIL boolean aapreaaloo; 
But It haa a different twlat. It executes aa long aa the 
boolean expreaalon la falae and It executea at leaat ona 
tlae alnce the teat la at the end. The counter could be 
rewritten: 

count •.•'I; 
REPEAT 

count :-count«l 
UNTIL count>IO; 
Thla doea the aaae thing aa before. A big difference la 
that even If "count" were greater than '10' It would atlU 
get Increaented at leaat once. 
The third la: 

IF boolean expreaalon THEH 
atateaant; 
Another fora of It la: 

IF boolean expreaalon THEH 

atateaent 
KLSK 

alternate atateaent; 
In either caae, the atateaent following the THEN la 
executed when the boolean expreaalon la TRUE. When the 
ELSE la uaed, the alternate atateaent la executed If the 
expreaalon la FALSE. The counter froa before could b* 
Increaented aa before , until It reachea 10 and then 
react to with the following line. 
IF count<10 THEN 
count :»count'<'l 
ELSE 

count :-0; 
At each paaa "count" la Increaented by i, until It reachea 
10. On the next paaa It la reaet to 0, 
The FOR la next. Ita ayntax la 

FOB vaTlabla:>«tart- TO atop-aapraaalooa DO 
atateaent; 

The TO can be replaced with a (XWVrO If you choose to go 
froa a higher expreaalon to a lower. Thla one will 
Increment "count" on lea own, but we can have It print 
It'a value aa It goea along. 
POR count :•! TO 10 
wrlteln(count); 
Now we can aee what count la aa It executea. 
The final atructura la 
CASE axpraaaloo OF 
ItaalsatataaanC; 
ltaa2:acataaanc; 
( etc. } 



Thla atructure executea a atateaant baaed on the what 
the expreaalon refera to In the llat. If the expreaalon 
refera to "Itenl", then the atateaent after It executes. 
If It la ~ltea2", then Ita expreaalon executea. We can 
now Increaent "count" aelectlvely. 

CASE 1 of 

1: count :*count^l; 
2: count:-count+2; 
3: count :-count+}; 

END; 

Thla exaaple could probably be written aa count :-count+l, 
but It doea aake the point. 

Now you've got aoae of the Psacsl's bsslcs out of the 
wsy. Actuslly there Is so auch acre, but thst will coae 
with tlae, experience end lesrnlng. A few atnor things 
you should know. Psscsl la s 'frse forasc' Isngusge. 
Esch ststeaent Is teralnsted with s sealcolon. The 
following two ststeaents sre Identlcsl. 



IF s>b THEN c:>3; 



or 



ir 

s-b 

THKN 

c:-i; 
Neither ststeaent asy be how you went to enter It, but 
Psscsl will tske thea both wsys. The other thing Is thst 
wherever s ststeaent 1b needed, s coapoimd ststeaent can 
be uaed. A coapound atateaent atarta with a "BEGIN" and 
atopa with an "END" (Note - there la NO period after the 
"END" for s block; 'END." Is reserved for the end of the 
Progrsa ONLY). If we wsnced to execute s few ststeaants 
sfter the THEN In the previous exsaple, we could enter: 

IF s-b THEN 

BECIN 
c:-5; 
wrlteln(s, b, c) 

END; 
Scsrtlng with the BEGIN end stopping st the END Is 
considered to be one ststeaent. In fsct the END Is s 
contlnustlon of the ststeaent "wrlteln(s, b, c)", so no 
sealcolon Is needed between tlwa, slthough the coapller 
wouldn't mind If s sealcolon hsppens to sppesr between 
the Isst ststeaant snd the "£N0". 



LSOUABDO'S BABBITS 

Tbls aonth I thought It would be fun to use Psscsl to 
solve s Bsth puzzle. The puzzle wss first published In 
the 13th century by s astheastlclsn nsaed Leonsrdo of 
Plss (wss EVERYONE nsaed "l^onsrdo" In thst ers, or wss 
he the asjor "publisher" of thst tlae??). He wss known by 
snother nsne, but I'll lesve thst for ister. He ssked, "A 
asn put s pslr of rsbblts In s plsce enclosed by walla on 
all aldea. How aany rabblta will be produced In 1 year If 
a pair can produce s new pslr every aonth snd It tskes 2 
aonths before a new pslr csn produce offspring?" The two 
aonths Is nesded since It tskes 1 aonth for s pslr to 
ascure snd snother to produce young. 

Bsck In those dsys Leonsrdo didn't hsve OS-9, or s 
coaputer to help hla. He hsd to think this out. lo the 
first aonth, s new pslr Is born to the original pair of 
rabbits. In aonth two, Che original pair producea 
another pair, plua the new pair froa aonth 1 aacuraa. In 
aonth three, Che cwo asture pslrs produce two aore 
pslrs, plus the pair froa aonth 2 asturss. This goes on 
for 9 aore aonths] The slapler solution is In this 
Bontbs listing. I solved the problea with Pascal. You 
hsvs aost of chs Inforasdon froa this aonths coluai Co 
undsrstsnd It. A few things sre worth noting. I ussd 
vsrlsble nsaes thst were descriptive. Die OS-4 Psscsl 
coapllsr only underscsnds Che first 8 chsrsccers of s 
vsrlsbls nsBS, but It la sctll leglclasce Co use longer 
nsaes If oscssssry. Jusc aake certsln chsc Che flrsc 8 
chsrsccers don'c conflict wltb sny other vsrlsble nsaes. 
I'vs csplcsllisd ksjQrards and puc Che reac In lowercaae. 
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The words "vrlteln" and "write" are not keywords, but are 
special procedur«8 defined by Che aysCen, ao they are In 
lowarcase. It doean'c aaccer to Paacsl whether we uae 
uppercaae or lowercase letters. It understands either 
squally well. Alao, In the line with "wrlteln", variables 
have s colon and nunber after than. This apeclftea a 
field In which the value la to be written. "Count: 3" 
■eans the value of "count" la to be written in a field of 
J characters wide with the nuaber being right Juatlfled. 
Give the prograo a try. 

If you don't have Pascal and are dying to know the 
anawer, here la what would be printed: 





MATURE 


HEW 


MOKTH 


RABBITS 


RABBITS 





1 







2 


I 




3 


2 




S 


J 




s 


5 




13 


S 




21 


13 




a 


21 




a 


34 


10 


89 


55 


11 


U4 


89 


12 


233 


144 


he nunbi 


er of rabblta 


In nonth 12 la 



610 



Notice that two Identical aequencea appear under "nature 
rabblta" and "new rabbits'. Our friend, Leonardo, 
dlacovered thla apeclal nuaber aequence and hence It waa 
naiaed after hla. Kla last naae waa Fibonacci and the 
nuaber sequence la called the Fibonacci Sarlea. The 
sequence atarca with two I'a and then every aubaaquent 
nuaber la the sua of the previous two nuabera. So, 

1 t t - 2 

1 + 2-3 

2+3-5 

3 + 5-8 

etc. 
A fun prograa you alght want to try la one that will 
generate the Fibonacci Serlea. The oethod you uae would 
be alallar to the "rabbit" prograa except you only want 
to print the outcoae at the and of each addition. See 
what you can do. 



XSCUKN, THE EZTKA SCKUH 

One problea with running OS-9 on the Color Coaputer 
la Ita display. It la only 32x16 charactera In alie. 
That Is not auch. If you enter a prograa like thla 
aontha, you'll find that a line aay wrap around a few 
tlaea, aaklng thlnga hard to read. In addition, the Coco 
doea not have true upper and lower case. So If you keyed 
In thla aontha prograa you'd aee black lettera on • grean 
background and green lettera In little black bozee. Not 
an eaay acreen to readi 

One aolutlon Is XSCRKKM. It la a high raaolutlon 
acreen that allowa you to go 51, 64, or even 85 
charactera per line. You can chooae froa a green and 
black, or a buff and black dlaplay. There IB alao light 
charactera on a dark background, or dark on a light 
background. Ali ypu do la placa XSCREIN In you connanda 
directory, /dO/cada. Whenever you need a high resolution 
acreen Juat enter XSCRKEN and <po«f[) It la ready to go. 
The prograa la aenu driven, ao you can aalect the type 
acreen you want with juat a few k«yetrokea when you atart 
It. Later you can change It to a different configuration 
by returning to the aenu. 



If you are Interested in XSCRERN, It la available 
froa: 



Microtech Consultants Inc. 
1906 Jsrrold Avenue 
St. Paul, KH 35112 
<612) 633-6161 



The coat ia $19.95, plua ahlpplng and handling charge. 
They alao have aoae other OS-9 products like XWORD, s 
word processor, and XTERN, a coaaunlcatlona prograa. 

That wraps up another aonth. If you get a chance 
look Into Paacal. It la a fun and rewarding language, 
and la often uaed In Coaputer Literature aa a wMcle for 
describing algorlthas, etc., since It breaks large 
probleas up Into easy to underatand aaaller aectlona. 

Learning to prograa In Paacal will aake you a better 
Prograaaer In AHY Language, since It fprcea you to 
undaretand both the Problea AND the Solution before you 
begin writing Code. In future coluona I will include aoae 
Pascal prograaa. But there will also bs C Language, 
Baalc09, and asseably language prograa* aa well. So keep 
reading "Baaic OS-9". Bye for nowl 



( Thta prograa will aolve the aath puzzle propoaed 
by Leonardo of Plea In the 13th century. Hie 
puzzle wea: 

"A aan put a pair of rabblta In a place encloaed 
by wells on all aides. How aany rabbits will be 
produced In 1 year If a pair can produce a new 
pair every aonth and It takea two aontha before 
a new pair produce offspring?" ) 



VAR 

aaturerabblta : Integer; 

newrabblta : Integer; 

totalrabblta : integer; 

teaporary, count : Integer; 

BEGIN 

I These are the Initial condltlona ) 
aaturerabblta:-!; { one pair ) 
newrabblta:-0; 

I A header to tabualte the data ) 

wrlteln; 

wrltelnC 

wrltelnC MONTH 

wrltelnC •••*••• 



MATURE 
RABBITS 



NEW); 

RABBITS'); 

»•*»-); 



( Calcualte the resulta and print It ) 

count :-0; 

WHIL£ count<-12 DO 

BEGIN 

wr It eln( count :5, aaturerabblta: 11, 
newrabblta: It); 

teaporary: -newrabblta; 

newrabblta :-aaturarabblta; 

aature rabbi ta:-aature rabbi ta-f teaporary; 

count :-count'«'l 
KNO; 

( Print the final tally | 
wrlteln; 

totalrabblta :-aature rabbi ta«newrebblte; 
wrlte<' The nuaber of rabblta In aonth 12 la '); 
wrlteln(totalrabblts:6) 
END. 
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On doner exanlnaclon, I've discovered another aaall 
problem with the llDtlng of the tlae progran froa this 
colunn In the July '83 Issue. It should be fslrly obvious 
to those typing It in, unless you don't know sssenbly 
language. Anyway, on page 23, the laat line of aaseably 
code, Isbelled gprilsc2. Is s oovea.l. The next line, on 
the next page, la tendasa. There should be s single line 
between these: 

gprdsc2 aovea.l <s7)'f,dl/a0 

rta 
fendaaa 

As t said, thia should have been clear to those of you 
who typed the prograa In, If you didn't see the olsalng 
line (you know what I aean), then thla could vety well be 
the reason for your progran behaving In a very strange 
Banner. 

CoMputer (uroout 

or 

What Ky SuKer Vacation DU To Ne 

The psat oonth or two haa been a curloua tlae for ae. I 
got back. In early June, froa aeversl weeks spent In 
Waahlngton, O.C, and St. Louis, carried ay Haclntosh froa 
the car to the coaputer rooa In ny house, and proceeded 
to do — absolutely nothing! Mot aone half-hearted 
iattatlon of nothing, either. This was the real thing. I 
didn't plug ay Helix back in for a full two and a half 
weeks, and only then becauae t waa feeling guilty about 
being hopelessly late with last aonth'a coluan. 

Hy treataent of the Hac has been even worse. It reaalned 
packed In Ita canning bag for at leaat a full aonth. It 
waa finally plugged back In when I wanted to uae HacPalnt 
for aoae graphing. It wasn't until yesterday, though, a 
full aonth and a half after getting back froa vacation, 
that I hooked the printer back up to the Hac. I stUL 
haven't hooked up the second disk drivel 

OK, Just what gives here, PhllT Hsve I been hit by thst 
dreaded deaon, Coaputer BurnoutT Ouab question - of 
course I have. A better queatlon la why, and when does 
it end? 

Tve been working with coaputera for about nine years now, 
since high achool. In ail that tlae, ay attitude toward 
coaputera haa alwaya been that of the hacker. Not the 
general aedta'a diatorted coapu-crook, out to Invade the 
credit bureaua of Aaerlca, but the true hacker who playa 
with coaputera becauae they are entertaining. They 
atretch the alnd in a special way, better than any 
croaaword puzzla or board gaae. 



Ah, but here'a the rub. Por the past four years, I've 
been working full tlae as a aystea p rog ra one r , writing 
soae dreadfully huge prograas In BOSO and Z-BO asaeabler. 
It haa been getting Increasingly hard to cone hone from 
sweating out a prograa at work, and turn on ay own 
coaputer ayatea to play around doing pretty auch the aaoe 
thing I do at work. All It took waa an extended vacation 
to bring ay hoae coaputer activity to a coaplete 
atandatUl. 

Right about now, you're probably asking yourself, "So why 
Is he telling ae this?" Partly, this Is a space-filling 
expedient. If I've been burned out for the past aonth, 
I'a unlikely to have auch to talk about. But aore 
laportantly, this experience got ae thinking about our 
autual hobby. 

When I drat becane active with aicroa, they were aaall, 
cantankeroua little beasts. A 'user-friendly' aschine waa 
one that didn't go up in saoke when you turned It on the 
first tlae after putting it together. Thoae syateoa aay 
have been difficult to use, but they stretched your alnd 
to the limit, Because of ay involvenent with coaputera, 1 
learned prograaalng, digital (and a little analog) 
electronics, hardware conatructlon techniques, snd ay own 
peculiar form of touch-typing which would horrify any high 
school typing tescher. 

Mow look around you. Of the three coaputer ayateas 
currently in ay house, none are klt-baaed. All have dlak 
drives, with the largeat having a 13 aegabyte hard dlak. 
Only the aoalleat, a CoCo, has only 64K of aeaory. Hy Hac 
has 3L2K of RAH, and ay Helix has a full aegabyte. Forget 
thoae ailly cogparlsona that say "this coaputer on a deak 
ia as powerful aa a rooaful of coaputera froa psat 
decades." Those esrly aachines couldn't touch alne for 
ease of use and alngle-uaer power. 

Of course. Just because the aachines have gotten bigger 
and powerful, that doean't aean you can't atlll play 
around with thea. Many of you out there are undoubtedly 
doing Just that, writing aoftware or aodlfying your 
ayateas for your own enjoynent. But I've been at this for 
ao long now, that I Just can't aeea to get the aaae 
enjoyment froa writing aaall prograae. Tve gotten deep 
within ay machine, doing thlnga like diaaaaeabllng the 
operating aystea to aee what aakea it tick, writing 
several dlak drlvera and other operating ayatea level 
prograaa, and writing doiena, aaybe hundreda, of 
utilities. Finally, it seeas to have gotten to the point 
that whenever I stsrt soae project, it's either aoaething 
too auch like a previous project to keep ay Interest, or 
It's too large a project to tackle, after working all day 
on equally large projects for work, 

I'd be curious in aeeing aoae response froa you out 
there. How long have aicroa been a hobby for you? If 
your job alao involvea working with coaputera, do you 
aanage to keep the two aeparated, or does ths work begin 
to intrude on the funT 
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Sorry for taking up apace with this adalttedly raabling 
dlacourae. Thla coluan neceaaarlly folloua ay own 
coaputer ezperlancaa, though, and thla la certainly one 
of the major experlencaa lately. 

Anyway, I have found aoaethlng of a aolutlon which la 
likely to Invigorate ay Intereat In coaputera. Since ay 
full-tlae Job writing aoftware aeeaa to be the problea, 
I'll Juat quit ay Job! Actually I'a leaving ay preaent Job 
with an eye toward conaultant work and tlae apent working 
on coaputera prograaa that Intereat ae. In place of 
working two etralght yeara on one gigantic problea. If 
relying on ay own Ingenuity for an Incoae doean't get ae 
going again, nothing will (lapendlng bankruptcy haa a way 
of doing that). 



Finally, there la the /OD device. The DD atanda for 
"Default Olak". Thla doea not refer to any particular 
phyalcal dlak or device. Inatead, depending upon your 
ayatea configuration, /DO i« expected to be aoae device 
which la alwaya available, and which holda all of the 
varloua atandard dlrectorlea and fllea like 
/OD/SYS/teraaet. Generally, /DO la an allaa for aoae 
dlak In the ayatea, auch aa /HO or /HO. To aet up the 
allaa, a device deacrlptor for /DD la created which 
aatchee the deacrlptor tor the allaaed device In all 
reepecta except for the actual device naae. For 
Inatanca, on ay ayatea, the /DD deacrlptor la a copy of 
the /KO deacrlptor, ao both refer to the 2SbK RAM dlak. 
If I did not have enough aeaory for a full atied KAK dlak, 
then 1 alght uae a /DO which waa an allaa for /HO or /HI 
Inatead. 



Tte tUIl Brlaga a Keprlfic 

Thank goodneaal Juat when 1 waa beginning to deapalr of 
filling up thla coluan, 1 get cull. Flrat, I received a 
letter froa Ktrk Anderaon, who flrat wrote about a year 
ago. Second, 1 have received fUera with Information on 
new 680D0 producta froa two coapanles. 

Hr. Anderaon waa one of the earlleat purchaaera of OS- 
9/b8K. 

He atarta out by aentloQlng that 
he now haa Verelon 1,1, and la finally very pleaaed with 
what he haa bought, Thla certainly aatchaa ay own 
ezperlencea. Ae I've aentloned In prevloua coluana, OSK 
aeeaa to have aettled down to a atable fora, with uaeful 
progiaaalng toola and far fewer buga than prevloua 
vcrslona. 

There la a queatlon In the letter. Scred, the OSK acreen 
editor, looka for a taralnal configuration file, 
/dd/aya/ teraaet, which la to hold a deacrlptlon of the 
eacape aequencea uaed for the teralnal. The queatlon 
haa to do with the "/dd" part of the flle'a naae. Uhat la 
It, and why doean't Scred Juat look In the current 
dtrectoiy? 



Now, when OS-S aoftware needa to find a atandard file. It 
Juat looka on device /DO. It la not laportant to the 
aoftware that thla la actually a RAM dlak, or hard dlak, 
or whatever. All that la laportant la that the file la 
globally available In a known location, no matter what the 
current dlrectorlea may be. 

One point - If /DO la a RAN disk, then obvloualy all of 
the atandard fllea which may be required auat be copied 
froa a true dlak when the ayatea Is booted. Thua, while 
OS-9 prograaa can refer to a general device /DO, the 
Startup file auet refer to a particular device like /HO or 
/DO. 

To aua up: /DD, the default device, la a convention uaed 
by 0S-9/68K In order to locate atandard fllea, like 
configuration fllea, aaaeabler ayatea deflnltlona, or C 
language flnclude fllea. To uae the convention, the 
atandard fllea In your ayatea ahould all be located on one 
particular dlak, auch aa /HO, /DO, or /RO. Create a 
device deacrlptor for /DO, which matchea the deacrlptor 
for the device holding the atandard fUea, In all reepecta 
except for the changed naae. If your ayatea, aa ahlpped, 
doea not coae with a /DO deacrlptor In the 0S9Boot file, 
then create your own, place It In the default execution 
directory, and uee Inail and lola coauoda In your atartup 
file to get the deacrlptor Into meaory. 



Actually, the uae of a /DO device la an atteapt by 
Hlcrowara to aolve a thorny problea with the way In which 
OS-9 refere to aeperate devlcea. in a hlerarchal (tree- 
atructured) directory ayatea, an operating ayatea neede 
aoae way In which to find atandard Information, auch aa 
configuration fllea. fleeing a copy of the files In the 
current working directory la not a particularly good Idea, 
becauae the working directory can change ao often, and 
multiple coplee of the configuration fllea In each 
poaalble working directory can waate a lot of dlak apace. 
Putting the fllea In the current execution directory la 
not auch batter, alnce that directory la really aeant for 
prograaa, not for deacrlptlon fllea. 

Unix, with a hlerarchal directory, geta around the 
problea nicely, but in a way that lan't directly applicable 
to OS-9. In Unix, there la a alngle root directory named 
"/", which can be uaed aa a baae for finding all other 
fllea In the entire ayatea. In OS-9, though, each 
phyalcal dlak device haa Ita own root directory, auch aa 
/HO, /DO, or /KO for a hard dlek, floppy dlak, or raa 
dlak, reepectlvely. 



There waa one aore queatlon In Andersoo'a letter. He 
noticed that 1 eeeaed to have wholeheartedly converted to 
C (not eurprlalng In view of ay lapendlng burnout - 1 
probably hadn't the patience for aaaeabler). He la using 
aaaeabler for Juet about everything, aoatly becauae he le 
Intereated In what'a going on In the guta Inatead of 
quickly puaplng out code. What he'd like to know, then, 
la what other people are ualng. Well, how about lt7 Tve 
never gotten a good Idea of how aany of you are out 
there. Here'a your chance. Do you prograa In C, 
aaaeabler, taalc09, Paacal, or aoaethlng elaeT Do you 
prograa for the fun of It, or le the Idea to quickly 
produce a working prograa! 

If anybody alee hae any new hardware they would like to 
call attention to, aend ae a filer. I can't cover 
hardware In auch detail, but 1 can at leaat mention It ao 
people know where to go tor aore Into. 



Wmmt Noub IflLL b« kctar 



Soae OS-9 eoftwara which neede to find a atandard file 
Ignorea the problea, ualng a fixed device Uke /DO or /HO. 
If you auat place the file on aoae other device, then you 
auat change the actual prograa code, or apedfy the 
location of the etandard file ualng a coaoaod line option. 
Neither choice le vmiy convenient. Thla aort of eolutlon 
le aleo often eaen In eaeeably language aource text ualng 
ataiidard daflnltlon fllea. 



So auch for a very difficult coluan. One way or another, 
E aa going to breek through thla burnout noneenee. m 
be beck next aonth, thla tlae with aoae uaeful 
Inforaetlon of aoae aort, 1 have to Halt araclf to at 
Boat one of theae ellly outburata per year. 
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Pleasant PL/ 9 



Uane F. Lescer 

4 13 Woodland Circle 

Lynchburg, VA 243U2 

As a biology profess 
coapucera la cwo-told, 
aachlnea can laprove ny 
ellalnadon or dlalnudon 
acudenc gradea), I'n ala 
ny personal producclvlt 
Banagea«nc, and research) 
le that of Che hobbyls 
And aa Ron Anderaon put 1 
"Host ot Che tun of haul 
CO do whac you wane It co 
software, " 



or, ny Inc^reac In Che uae of 
I'd Incereaced In waya chat Che 
Job aaclacacclon chrough che 

of boring caaka (aaoagenenc of 
o looking lur ways Co Increaae 
(word proceattlng, dacabase 
The second area of Incereac 
c: cheae chlngs are (un Co runi 
c In his June, 198^ colunn, 
ng a coapucer la prograaaing Ic 

do, noc running sooeone else's 



Frogranmlng Involvea che uae of a language, and If 
one acaya ulch conpucera for any lengch of cine, che 
choice of a language beconea Inporcanc. Nowadaya , noac 
peraonal coapucera cone wlch BASIC, so chac's che flrac 
language chac noac people learn. Modern BASlCa are 
powerful enough Co do Juac abouc everychlng, and wlch 
coapllera like KBASIC, lack of speed Is no longer a 
problea for noac appllcadona. Buc Juac aa we are able 
CO find conpelllng reaaons for buying chac new piece of 
acereo equlpaenc, ooac of ua gee che lech Co learn a new 
language and are able co provide our spouses, eaployera, 
or Jusc ouraelvea wlch all kinds of high-sounding 
advancages for che change. 

Buc whac language Co geil We 6809ers have a nice 
aelecclon froa which Co choose: aaaeably, BaalcU9, C, 
COBOL, Pascal, FORTH, FORTRAN, Ft/9, Whlaalcal, and 
oaybe aoae ochera chac allp ay alnd . The June, 198S 
Issue of BYTE had an ardcle abouc choosing a 
programing language, buC che advice provided would noc 
be very helpful Co che hobbylac who can'c afford Co 
change languagea wlch each change In appllcadon. Ic 
cakea doe and effort co learn a language well enough Co 
gee ic CO do useful things, noc Co aentlon the coat of 
purchaalng the asaeabler / coapller / interpreter. What 
the hobbylat needa la a language that will do a lot of 
thlnga well. On the other hand, 1 suspect that I'a not 
the only hobbyist who Is Interested In the "laceat 
atuff", whether ic'a hardware or aofcware. 

One of the lateat languagea to appear la Nodula-2. 
It waa created by Nlklaua WlrCh, the author of Faacal, 
aa an laproveaent and extenalon of Faacal. I believe 
there la one or oore Hodula-2 coapllera for the 68000, 
but It haan't reached the 6809... yet. When It doea. 
It will be the "laceat", but la It a ^ood Idea? Thla 
aerlea of artlclea la about PL/9, ao 1 aa not going to 
give a coaplece dlacuaalon of Hadula-2, but a few 
coamence alght be worthwhile. At leaat, I'll feel 
better for having aald thea. 

With BYTE coluanlat Jerry Fournelle'a continuing 
proaotlon of Hodula-2 and now the special lasue of BYTE 
devoted to that language, there la probably no atopplng 
the avalanche of Hod-aanla, However, In reading the 
artlclea dealing with thla new language 1 detect a 
particularly dlataateful hidden agenda, There'a no 
disputing the fact chat aoae of the featurea of Hodula-2 
are definite laprovenenta over Faacal, prlaarlly thoae 
changea that give the prograaoet aore freedoa. But 1 
believe that the developera and proaotera of thla 
language yearn for the Ante-alcro Age when coaputer 
aclentlaca were high prleata who dealt In secret arta 
not acceaalble to aere aortala. How elae can we 
evaluate the reincarnation of octal nuabera for ASCII 
conacanca and che abbreviation of "<>" Co "" and "AND" 
CO "(" while recalnlng che nulaance of ":•"? Whac need 
haa been deaanacraced for che addldonal vocabulary of 



"acoaa" and "Indlvldua"? How auch nore aelf-docuaenclng 
doee a progron becoae when we subadcuce INC(l) for 1 - 
1 ♦ It 

Wirch hlaaelf appreclacea che laporcance of 
readability In a prograa. In che Hay, 198S laaue of 
Coapucer Language, he acaced, "What 1 aean Co aay la 
chac prograaa auac be underacood by huaans. Frograaalng 
ahould be an ace directed noc ac che mschlnea, buc at 
huaana," In chac aaae laaue, Donald Knuch, author of The 
Arc of Coapucer Frograaalng, aald, "I'a crying Co 
eaphaalie chac che beac way co prograa, I believe now, 
is really Co concencrace on explaining Co a peraon whac 
che coapucer la auppoaed Co do racher Chan explaining Co 
a aachlne whac Ic'a auppoaed co do," 

So which are che readable languages for che 68097 
Lee tU! chrow caudon Co che wlnda and llac a few In 
decreaalng order of readablllcy: FL/9 (of coucsel) > 
Faacal > C > FORTH > aaaeably, I've wrlccen ac lease a 
few prograaa In all buc C, and I've looked ac enough C 
code CO be able Co place Ic In che llac. As an aalde, 
for cranaporcablllcy I don'c chink C can be beac, buc 
ic'a harder Co learn, harder co read, and coapllea 
alower Chan FL/9. 

Ic nay aeea a concradlcdon Co whac I've aald 
above, buc I'a glad chac 1 learned aaaeably aa ay aecond 
language afcer BASIC (well, FORTRAN waa really flrat, 
buc who caraaT), 1 choughc for a while chac 1 waa going 
CO have Co ceach a courae In aaaeably language 
prograaalng, and chac lapelled ae Co work ay way chrough 
Levanchal'a axcellenc 6809 Aaaeably Language 
Frograaalng, Svan chough t M*nc on Co gain an 
acqualncance wlch ocher languagea, che faslllarlcy wlch 
aeaeably condnuea co be a big help, eapeclally wlch 
FL/9, alnce ic leca you gee aa cloae Co che aachlne aa 
you wlah. In che aaae Ineervlew quoced above, Nlklaua 
Wlreh aald, "For coapucer aclence acudenea, I would aay 
ic'a abaolucely eaaendal chac chey learn abouc aachlne 
acruccurea and aaaeably coding. Noc Co becoae aaaeably 
language prograoaera, of courae, buc Co gain Inalghc," 
And Donald Knuth expreaaed a alallar Idea wlch, "1 chink 
one of che ooac laporcanc chlnga for people Co learn la 
che ablllcy co flaah rapidly froa che high level Co che 
low level and back." 

One of che main thlnga Chac aake PL/9 ao pleaaanc 
la che freedoa ic afforda che prograaaer, FL/9 allowa 
you CO "flaah rapidly froa che high level Co che low 
level and back". Ic haa high level worda like WHILE, 
and REFEAT - UNTIL, buc Ic alao haa low level worda like 
ACCA, which reada froa and wrlcea Co che A accunulacor. 
There are ocher kinds of freedoa you can enjoy. The 
co-realdenc edltof and Coapller provides freed<^ froa 
long coaplle doea. The prograaa produced free you froa 
alow operaclon and aeaory ' gobbling alze. There'a 
freedoa In alxlng 8-blc and 16-blc nuabere. And If you 
wane, you can even call che aaae aeaory locaelon by Cwo 
(or acre) dlfferenc naaea. 

Thla laeeer opclon can really laprove che 

readablllcy of prograaa. On ay CIKIX video board, che 

aaae byce aervea aoaedaea aa a aode concrol pore and 

soaeclaea acorea che locaelon of che laae line on che 
acreen. So In acuff 1 wrlee for che board I have 

AT $E021 BYTE HODE; 
AT $1021 BYTE LAST; 

ao chac where le aekea che aoae aenae I can call che 
pore HODE, and where IC refera Co che laae line I can 
call le LAST. In veccocs , aa alngle - dlaenalon arraya 
are called, you can even have a naae chac refera Co an 
eabedded pare of che veceor. An exaaple wlch which aoae 
resdera will be faalllar la che FLIX File Concrol Block, 
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a 320'byce buffer used by FLEX. The second byte of this 
vector la the error byte, which Indicates whether 
soaethlng h«8 gone wrong during a disk operation. You 
can handle this In two ways, by either placing the FCB 
at a definite location or by letting PL/9 put It on the 
stack. The forner would look like this: 

AT $C840 BYTE PCB; 
AT $C841 BYTE ERROR; 

allowing you to refer to FCB for disk operations and to 
ERROR to see if everything went OK, To put these on the 
stack, you'd write: 

GLOBAL BYTE FCB(I}, ERROR(319), NEXTCLOBALVARIABLE; 
That would reaerve one byte for FCB and 319 for ERROR. 
But rCB requires 320 bytes, you say7 PL/9 doesn't care 
what kind of "subscripts" you put on the variables; It 
assuaes you know what you're doing. When FLEX refers to 
FCB, It'll use the whole 320 bytes without hlccuplng 
over the fact that you only declared one byte for FCB, 
So you'll be able to use stateaents like: 

OPEN FOR_READ( . FCB) ; 
IF ERROR THEN FLEX; 

How auch Bore readable can you get? 



To close with a little code, I me 
outset that the hobbyist doesn't have t 
to Invest In a lot of languages. He or 
BAxlauB alleage out of the language( 
other day I got the urge to be able to 
Epaon FX-BO printer ttodes ao that they 
and LIST. I wrote soae little progiana 
and I gave then the aaou: nanes aa the 
■y version of Ron Anderson's JUST 
LM.CMO, the one that follows, sets 
margin. 



ntloned at the 
he tine or noney 
she needs to get 
a) on hand. The 
control varloua 
d be aet for CAT 
to do the Job, 
'dot" cooBanda in 
text processor, 
the Epson's left 



/* LM, Seta Epaon FX-80 left margin •/ 

/* Addresa all of aeoory aa a vector */ 

AT $0000 BYTE HW; 

/* Pointer to place in comund line */ 

AT $CCI4 INTEGER L1NE_BUFFER; 

/* Last line teralnator encountered */ 

AT $CC11 BYTE MST_TEKH; 

CONSTANT ESC - $IB, CR - $0D; 

ORIGIN - $Ct00; /* FLEX COMHAMD AREA */ 

PROCEDURE PR1NTCHAR(BYTE CHAR); 

/* Put character in Accumulator A */ 

ACCA - CHAR; 

/* Call FLEX printer routine */ 

CALL $CCK4; 

ENDPROC; 

PROCEDURE HAIN: BYTE MARGIN, L; 
/* Initialize printer routines */ 
CALL $CCCOi 

/* Get sargin value after connand •/ 
MARGIN - 0; 

WUIU KEH(L1NE_BUFFER) <> CR 
.AND HEM(LINE_BUFFER) <> ': 
BEGIN 

MARGIN ' MARGIN • 10 

♦ MEM(L1NE_BUFFER) - $30; 
LINEBUFFER - LINEBUFFER ♦ 1; 
END; 
Tell FLEX if there's aore on the */ 
cctaaand line */ 



/' 
I* 
lASTTERM - MEM{L1NE_BUFFER); 

/* Get Epson's attention */ 

PR1NTCHAR(ESC}; 

/• Set Bargln to value of next byte 

PRINTCHARCI); 

/• This is the bytel */ 

PRINTCHAR< MARGIN); 



CoCo User Notes 



by Carl Haan 

30 Warren Ave. 

Amesbury, MA 01913 

Midnight. Bleck clouds skidded acroaa a atarlesa sky. 
Soaewhere in the distance a screech owl answered the 
howling of a lone dog with a cry that foretold the dooa 
of the world. I rolled over again, auttered sonethlng 
between my teeth about aninala and the trouble they can 
■ake , and waa floating over the brink of slunber'a chaan 
when. . . 

Tap. , .tap. . .tap. Never aind. A settling of the house, 
perhapa, or the refrigerator overflowing Its Condenso-Pan 
again. Goodnight, world. Hello, Void. Lovely to sea you 
agaia, wf friend... 

TAPI . .TAP! . .TAPI II HelloT That's no ref rlgerstor- 
that's MY door I The Void vanished into itself as I dialed 
up a reasonable glow froa the bedside dlaaer box (ay 
eyeballs send oe roaes-by-wire at leaat once a year sloce 
i Installed the thing) and fuabled for ay pajuwa. Oh. 
Wearing thea. Okay. Good, The door. 

Nobody there I TPor que? (My CPU soaetiaea lapaea Into 
Spanlah when it can't think of the appropriate French 
phrase. It's a slightly charalng feature of the wetware, I 
think.) I rubbed wf eyes with wf knuckles. It didn't help. 
Then I felt it: soaething cold and not very hard under 
the tip of Wf big toe. A package? 



A package, 
few degrees . 



I retrieved it and edged the dla light up 
Judging froa the ataapa in the corner of 



the heavy cardboard wrapping, St had come quite a 
distance. A rubberataap had been applied to seversl of 
the ataapa, Blood-red ink on blood-red postsge. Dialy I 
discerned the word, "BELGRAD". Uhatt 

I found ay Sulas aray knlie (never leaves ay aide) and 
cut the tape and string and tape that bount the parcel 
together. Inalde waa a cassette with no label. I sniffed. 
The case saelled like petroleun. I yawned and went back 
to bed. 

Next aorning I did the obvious. 1 dropped the 
aysterlous tape into CoCo'a cassette drive and (on a 
hunch) typed SXIPF <ENTER>. Sipping on the aorning tea, 1 
was rewarded in due course with the fUenane, "LABLHAKR". 
1 rewound, CLOADed , and LLISTed the result. Interesting 
stuffi 

10 CLS:PRINT" THIS PROGRAM MAKES CoCo PRINT" 

20 PELUn"text on standard aaUlng labels."; 

30 PBlNT'Aoy nuaber of duplicates ms/' 

40 PRlNl"be made by pressing <ENTER> at" 

50 PKUfT'the end of a run. Tap <SPACE> to"; 

60 PRINT"advaoce the label one or aore" 

70 PRINT"linea as required. Hoveoent to" 

80 PRINT"the next Ubel la automatic." 

90 FOR X-1 TO 2000:NBXT 

100 PRINT:PRIK1" 0T1UR K£YS:":PUNr'<UP AUO 

ADVANCES TO NEXT LABEL."; 

110 PR1N'I"<DN tA\t> -1/2 R£VKRSE LINEFEED." 

120 PRlNr<l,r ASU> BACKFEEDS TO PKIOR":PRI(n" 

LABEL." 

130 PRINT: PRINT" PRESS AJTf KEY TO START."; 

1000 E$-IHKEY$:IF E$-'"THEN 1000 

1010 CLS:PRINr' Set BAUD Box for 9600r':FOR X-1 TO 
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2000:NeXT 

1020 POKE lSO,l:POKe 282, 2)S 

1010 CL$:PRINT" V«hc you vant ae to prlnc for you coday, 

aveedcT" 

1040 PRINT'furadC Une:":LINt INPUT A$ 

lOSO PRINT'eeckondc ltae:":LINe INPUT 1$ 

1060 PRINT'churdC Uae:":LINE UJPUT C$ 

1070 PRINT'fourdCh Une:":UNE INPUT 0$ 

1080 INPur'Tabr'iA 

1090 PRINTf-2,TAB(A);A$ 

1100 PRINTf-2,TAB(A):B$ 

lliO PRINT«-2,TAil(A):C$ 

1120 PRINT#-2,TAB(A);D$ 

1110 PRINT«-2:PRlNTI-2 

1140 CL$:PRIN1"You vant aaybe anuzza vun, aeln koaradcT" 

1150 ES«U«KYS:II'ES-'"'THEN 1150 

1160 IF E$<>"Y"AND ESO'V" TH£N 1170:EL$E RUN1020 

1170 I>° E$-CHR$(13) THEN1090 

USO ir E$-CHR$<32) THEN PIUNTf-2:C0T01 liO 

1190 If E$-CHR$(9«) THEN FOR L-1 TO 6:PRINTf- 

2:NEXT:G0T01110 

1200 ir K$-CHR$(10) THEN PRlNTf- 

2,CHa$(27>«CHR$(68);:COTUU)0 

1210 ir li$-CHR$Ot) THEN FOR L-t TO 6:PRINTf- 

2,CHR$(27}4CHR$(10);:NeXT:COT01150 

1220 IF ESO'V AND ES<>"n" THENIJ50 

1210 PRINT'No.":PRlNr'llye for now, aveechearcl l"iENU 

I wondered whoae uncle Che old bac waa who (whlchl 
what?) had dropped all chia at ay door. Oh, well. 
Obvloualy long gone by now, lealdea, who aa I Co look a 
workhoree In Che aouth? I loaded ay old Quae prlncer up 
with labeia, Chan fired up Che prograa. Waa I pleaaed? 
Aak ay fellow worker John (who ALMOST Curned up hla noae 
ac CoCo, chinking he'd had Cha VERY beac In coapucera ac 



Harvard Unlveralcy . . . now he runs CoCo ac work, cool) 
whac he aaw ae doing chac aornlng. Now we boch are Che 
proud cuacodlana of LOTS of neacly labelled flla foldera. 
No aore chlckenacracch labeia In OUR ayaceal 

Lee Che reader beware: chla prograa waa cargeced 
onco ay peraonal ayacea. (Uho done lc7 who knowa? Hope 1 
don'c have Co Pay Lacer.,.) Ocher prlncera may noc have 
fancy reverae and/or half-rev<?rae line{eeda. II youra Is 
of chla aorc, you should delece prograa lines 1200, 1210, 
and Che references co cheae funcclona in Che opening 
reaarka. On che ocher hand, your prlncer aay In face 
aupporc cheae coaaanda' buL through dliferenc code*. If 
chla Is Che caee, your prlncer aanual wLU cell you ao. 
SubedCuCe codea aa required. 

Line 1020 concalna a POKE Co Heaory Locacion 150. 
Thla POKE forcea CoCo Co send data Co Che prlncer ac 
9600 blca per eecond. CoCo'a nornal speed la 600 CP$, or 
BAUD, aa ic ia called. To avoid Che BAUD race epeedup, 
delete che POKE Iroa youcveralon of Che prograa. 

The ocher POUE In Line 102U Inaurcs chit the label 
will be prlnced in upper catte capital lettera. To aee 
what elee can happen, change It tu POKE 262,0. Or you can 
preea CSUIFT 0> to get the aaae result. 

Have trouble aaking thla bit of Traneyivanlan 
technology work? Urlte ae c/o 68 Micro Journal. Send 
along a printed liatlng of the prograa, and tell ae what 
your printer is and Is supposed to do. Also teU ae what 
the prograa doea wrong. A SASE will epeed ay reply, m 
answer any aall, though. 



OS-9 SETIME 
Module 



OK Grovee 

10207 Gillette 

Lenexa taa, 66215 

Iditore Note: Oopal I I 

One of the atroag painta of 6B Hicro Journal has been 
the accuracy with which we have been able to print 
Prograa Ustlnge by traneferring the Source directly froa 
dlek to the Kagsztne. Of couree, there la aoae Hardware 
BETWEEN the D(ak Source and the Printout for the 
Hagazine, and thie la what let ua down thla tlac. Oral 
called ue right after he received hie Aug. '85 Icaue of 
the Hagazine and aaked, in effect, "la TBAT what I eent 
on the Dlek?". Ue did aoae "De-Bugging" and found a 
Printer causing probleaa; well, 1 auppoae It waa bound to 
happen eooner or leter. 

After carefully (we HOPE) coaparlng the Uak File with 
the Lietlng, we decided that we could point out the 
corrections, aince few of thea actually affect the COOS 
Iteelf . 

Hoet of the probleaa ahowed up on page 44 of laet 
aontha Ueting. In the reaarke at th« top of the left 
Coluan, the "WOTf ebould be "WyTt' and the "alpha-oa rle" 
ahould be "alpba-Duae rlc" In th« general opening reaarka. 
About I/} of the way down that coluan following the NOTE 
on the Robertaon board the reaark ebout the 'debugging 
code' ehould read "lavofce debugging code". 

At the top of tbe right coluan on pege H, the 
reaark "reaerve at Iea(t 200 bytee deciaal r the" aheuld 
read "reeerve at leaat 200 bytea deciaal for the 
stack...". 

Right below that problaa, the 17th line froa the top 
of the page, le a labeled atateuot wtilch aaya 

daytib fee 'SuoNonTMeWadTlkurriSat' 
which ahould read 

4*ytab fee 'SuoHon 



In the reaarka following that ale-print, the 
"Initialize atoraga area" ahould be "Initiallu etorage 
area". 

Hoving down to the alddle of that ease coluao, on the 
<i6th line of the right coluan of page 44, the etateaent 

eta dow eave dly of week 
ahould read 

sta dow save day of week 

Finally, aoving to the very laet line In the left 
coluan of page 45, the "OUTPU " ehould be "OOTPn". 

Since the OMLY actual "code" affected was the 'daytab' 
label, and the reat were in reaarke that aake 
unde ratanding what ia going on eaaier, we decided to 
offer thla correction rather than coapletely rerunning all 
of the Code. Oh yehl The Printer le headed for the 
"Doctor'a Office". Sorry li it caueed you any probleae. 

KLM 

* 

bca Inperr 

Ida todyy convert year to hex 

Iber bcdhx 

ata todyy 

Ibra endwhl 
palO decb 

bne pall nuaeep - 17 - do Mooth 

leey todath,u 

Idb f$12 

Iber getnu* 
* 

* * * conditionally Invoke debug code 
* 

Ifeq debug-2 
pehe x,y,d,cc 
Iber ehorege 
leax avd,u 
Idy f(15+2405) 
Iber ahoaea 
puis x,y,d,cc 
endc 



inc fig 
bee Inperr 
Ida todath 
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Ibar bcdhx 

■ca codach 

bra endwhl 
pall decb 

bne tnperr nuaaep -2T - do Day of Honch 

leay coddd.u 

Idb l$3l 

bra pal6 
* 

pa9 decb 

bne Inperr at dae acrlng! - CASE nuaaep 

Idb nuaaep 

bne p«11 nuaaep •O? - do Hour* 

leey codhh.u 

Idb «$23 

bra palt 
pa I 3 decb 

bne p«j4 nuneep - 17 - do Hinucea 

texy Codan,u 

bra pais 
pa|4 decb 

bne Inperr nuaaep - 2? * do Seconds 

leay Codai.u 
pal 3 Idb f$60 
pal6 Iber gecnua 
a 

* * * conditionally Invoke debug code 

• 

ifeq debug-2 
paha n.y.d.cc 
Ibar shorega 
leax svd,u 
Idy Hli*lk*M) 
Ibar ahoaea 
pula x,y,d,cc 
endc 



Inc (Ig 

bca Inperr 
endwhl Ibra (mI 
Inperr Ida II send aeeeage Co acdouc 

Idy «3S 

leex dcalnlipcr dlaplay correct ayncax 

os9 l$wrln 

coab Bad input 

Idb Ibedlnp 

rle 
* 
* This routine converte a BCD byte to hex 



Input 

-byte (tn BCD) 

bcdhx calle: 
noone 



output 
B ■ byte (In hex) 

bcdhx la called by: 
parae 



bcdhx equ * 

pahs s save LS nibble 

Idb «$( 

sndb ,s 

stb ,s 

snds f$fO keep MS nibble In A 

Idb <160 suit NS nbl XIO & keep It In A 

aul 

adda ,e* add la LS nibble 

clrb 

rts back to caller 
a 

* Thie routine gete the next character In 

* the Input buffer 
a 

* Input output 

* X • buff addr x - aoved to next char 

* u,dp - para area u,dp • unchanged 

* cc - carry If nonalphno 

* ovecflov If nooalpha 

* a • character 



* nxtch la called by: 
'66' Mkm Journal 



nxtch calls: 



parae noone 

getnun 

grtdow 

Claaa sets condition codes bssed on the 
type of chsrscter In the A register. 



* class t> called by: 

* getnua 

* getdov 



nxtch equ * 

Ida ,** 
class caps f$30 

bee nxtn 

capa «$39 

ble nxtnu 

caps l$41 

bcs nxtn 

caps t%im 

bis nxts 

cape f$61 

bcs nxtn 

caps l$7a 

bhl nxtn 
a 

* alpha-nuoerlc 
a 

nxta andcc f$fc clr C & V 
rts 

• 

* nuaerlc 

a 

nxtnu sndcc ISle clr c<irry 
orcc It set overflow 
rte 

a 

* neither 

• 

nxtn orcc II eet csrry 
rts 



cl sss cal Is: 
noone 



Ifne Rbtsn 



This routine expects to find I or 2 
slphs chsrscters on the line before s 
dellalter. It converts thea Into a hex 
nuaber coreepondlng to s dsy of the week (0- 
Sunday). No attention la paid to any but the 
firet two charectera. Once theae have been 
found, the buffer pointer Is noved to the 
next dellalter on the line. 



Input 



u,dp 



buff pointer 



para aree 
first character 



getdov calle: 
nxtch 



output 
X - pointer 
to next 
dellalter 
u,dp - unchanged 
d - destroyed 
cc - carry If 
problea 

getdov la called 
by: 

parse 



a 
a 
getdow equ * 

bar claaa what la let chsrscterf 

bcs gtder not slphs-nua 

bve gtder not slpha 

anda l%il upcaae 

sts svd ssve let letter 

bsr nxtch get next chsrscter 

bee gtder not slpha-nua 

bve gtder no slphs 

anda l%if upcaae 

paha a.x eave char k buff ptr 

leax deytabgpcr get Day of week table 
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clrb 

clr codow 
gcd4 CB|ib m end of Cable? 

bgc gcdcr) yea- error 

Ida b,x gee char froa cable 

anda fJSf upcaae Ic 

capa avd ccapare wlch lee leccer 

bne gcdl 

Incb keep going 

Ida b,x 

aoda Hit 

capa ,a coapara wich 2nd leccer 

beq gcd2 goc Ic 

decb 
gcdl addb H cry again 

Inc codow counc Co nexc day 

bra gcdi 
gcderl pula a,x 
gcder coab 

rca 
gtd2 pula a,x 
gcd} bar nxCch aove Co nexC sep 

bcc gCdS 

leax -l,x 

clrb 

rca 



pula d,pc rcrn 



* * * This pare of Che prograa aeca Che ctn 

* froa Che TOD packec 

* 

doaec teax codyy.u gee TODaec packec 
aex avx keep addr of cine peckec 

a 

Ifeq Rbcan converc Co noraal elae foraac 
Ida coddd 
I bar bcdhx 
sea coddd 
Ida codhh 
Ibsr bcdhx 
sea codhh 
Ida Codaa 
Ibsr bcdhx 
ace codoo 
Ida codes 
Ibsr bcdhx 
ec« codae 
endc 
a 

oe9 fSeda ace year 
bee problea 



END OF GETDOM ROUTINE 



endc 



Thle routine geca Che nexc or I 
characcere froa Che buff and 
convarca chea Co a BCD byce In Che 
Indlcaced addreea. 



InpuC 




oucpi 


UC 




X 


buff polncer 


K 




•oved 
CO nexC 
dellalcer 


u,dp • 


para area 


u.dp 




unchanged 


y 


addr Co byce In 


y 




unchanged 


b 


•■X legal value 


b 




deacroyed 


a 


flrac characcer 


« 




deacroyed 






|y) 




value in 
BCD foraac 






cc 


' 


carry If 
problaa 


gecnua 


calla: 


gecnua 


la called 






by: 






nxCch 




1 


parte 



gecnua equ * 

peha d keep boch MS nbl i max val 

ber claee find ouc whac'e In A 

bee gcner noc alph-nua 

bvc gcnar noc a nuaber 

Idb fl6 aove MS nibble Co lefc 

aul 

acb ,a eave on acack 

ber nxCch gee LS 

bee gcn2 only one dlgle 

bvc gcner noc a nuaber 

anda til Take off Oiaraccer perc 

ora ,a puc inco LS nibble 

bra gen} 
gcn2 Idb ,e puC Ic back ... 

Ida Hb ...Inco LS poalclon 

■ul 

laax -l,x puc buff per back 
gen) caps l,a aax valu«I 

bhl gcner yee-arror 

eca ,y keep le 
gcn4 Ibar nxCch uea only 2 dlglee 

bee gcn4 

leax -l,x aeC buff per for nexC char 

clrb no error 

pule d,pc rcrn 
gcaer coab aec carry 



Ifne Rbcan 
CSC fig 

beq noaec don'c change anychlng buc year 

Ida Hc\ aodule cypc- prograa 

leax Codacr,pcr find TODseC aodule 

oa9 f$llnk 

bee ceec ok? aec Che dac 

capb f$DD e$anf-aadule noc In acaory? 

bne problea ocher problea 

Ida #$cl adll a prograa 

leax codecr,pcr 

oa9 f$load gec froa x-dir 

bca problea can'C find Ic 7 quic 
ceec Idx evx gec TODaac packec 

jar ,y aec ciae 

oe9 fSunlk reaove aodula 

endc 
noaec clrb noraal exic 
problea rca recurn 
a 

* * * * end of inpuc and eac 



* Thia pare of Che prograa diaplaya Che currene 

* elae and requeece ueer Inpuc 

« 

dlaplay equ * 
Ifne Rbcan 

Idb dow gee dey of mek 
capb #6 only 7 daya in a mek 
bhl rngerr recum range error 
leax daytabipcr 

Ida li offaec ) bycea per enery 
■ul 

abx add offaec Co x 
leay dcaecr.u polnc Co aessage buffer 



,x* aove day Inco buffer 

.y* 

.X* 

.y* 

• x« 

.y*+ 



Idb 
acb 
Idb 
acb 
Idb 
acb 
endc 

Ifeq Rbcan 
leay dcanr,D 
endc 

leax ayeyy,u converc day nuaber Co acrng 
Ida #6 alx bycea Co converc 
paha a 
Idb .x* 
dlalp bar hxbcd coaverc Co bed in D 
bar binehr converc tO'Char In D 
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•cd ,y** (Core cwo dlglcc 

Icty l,y aklp acparttar 

Idb ,** gcc next bycc 

dec , • dec counter 

bne dlalp 

pule • 

Ifne Rbtan 

leax dtnatr,u 

endc 

Ifeq Rbtan 

leex dtBnr.u 

endc 

Ida #1 write tlac to atdout 

Idy #J5 

oe9 l$wrln 

bca problea 

1 f ne Rbtan 

leax okatr,pcr 

endc 

Ifeq Rbten 

leax oknr.pcr 

endc 

Ida «l 

Idy Hi 

leax bu(f,u 

oe9 l$rdln 

Ibce problea 

tfr y.d 

rte 
rngerr coab 

Idb Ibedrng value out of range 

rte 
* 

* Convert I hex byte to tvo aectl cherecter* 

• In 



convert Ida todyy 

bpl cnvtO year changed 

Ida ayayy 

ate todyy 
cnvtO Ida todath 

bpl cnvtl Bonth changed 

Ida eyaath keep cur aonth 
ft 

Ifeq Rbtan 
cnvtl ate todath 
endc 

ft 

Ifne Rbten 
cnvtl Idb #16 ahlft to left nibble 

BUl 

Ida todOH 

bal cnvt2 day of week unchanged 
ate dow put new dey tn 
cnvt2 orb dow coabine ath & dey 
•tb todath 

endc 

ft 

leex ayadd,u point at reat of packet 

leay toddd.u 

Ida H 

pahe a 
cvlp tat ,y no change? 

bpl cvlpl 

Idb ,x keep cur byte 

bar hxbcd convert to bed 

atb ,y 
cvlpl leax l,x goto next byte 

leay l,y 

dec ,a count i bytea 

bne cvlp 

pula a,pc return 



blnchr peha b aave nuabar 

Ida #16 

aul aova aoat eig nibble to A reg 

adda #$}0 sake a char 

cape f$39 HEX ? 

ble bini dccael 

adda #7 
binl pula b do l«eat alg nibble 

andb «$f 

addb »$}0 

capb #$39 

ble btn2 

eddb #7 
bin2 rta 



• ft ft ft 



end diaplay and raqueat uaer Input 



* Thta part of the progrea converta the syatea 

* time packet to TODaet foraat 
ft 

hxbcd clr huncnt atart with 0000 

clr tencnt 

clra 
hxO aubd #100 divide by 100 

bit hxl 

Inc huncnt 

bra hxO 
hxl addb #100 
hx3 aubb #10 divide by 10 

bit hx2 

inc tencnt 

bra hx} 
hx2 addb #10 reatore reaainder 

eel tencnt aova tena Into poattlon 

eel tencnt 

eel tencnt 

aal tencnt 

addb tencnt add onee 

Ida huncnt get nundreda 

rta return 



* a ' * end convert to TOOaet foraat 

ft 

ftftft* END OP PROGRAM 

ft 

eaod 
endaet equ * 



COBOL Name 

& Address System 

by Hike Hartln 



Coatlnuad froa Last 
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BIOO-NEU-DATA SECTION. 

MOVE SPACES TO WS-NEW-UCORD . 
■101-PIRST. 

NOVE i TO X. 

»tOVE 1} TO T. 

PEtrOlM XUO-ACA THRU ZllOX. 

ACCEPT US-HEW-PIRST-NAME niOM CONSOLE. 

IP US-MEU-PIRST-NAMB - "<" OR "#" 

GO TO iiggx. 

R102-LAST. 

MOVE 5 TO X. 

MOVE Ai TO T. 

PKRTORH ZUO-ACA THU) ZllOX. 

ACCEPT US-NEU-LAST-NAME PUH CONSOLE. 

IP US-NEU-LAST-NAKE - "<" 

CO TO (lOI-PIlST. 
IP US-NEU-LAST-NAHE - "#" 

GO TO R190-CONPIRM. 
1103-LINtl. 

MOVE 7 TO X. 

HOVE 13 TO Y. 

PERfORH ZllO-ACA THRU ZllOX. 

ACCEPT US-NEU-LINEl PROM CONSOLE. 

IP US-NEU-LINEI - "<" 
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CO TO B102-LAST. 
IF WS-NEW-LINEl - "#" 

CO TO B190-CONFIRH. 
B10A-LINE2. 

HOVE 7 TO X. 

NOVE Ai TO Y. 

PERTORN ZllO-ACA THRU ZllOX. 

ACCEPT WS-NEW-LINE2 FROM CONSOLE. 

IF WS-NEH-LmE2 - "<" 
CO TO BlOA-LINEl. 
IF WS-NEU-LINE2 - "t" 
CO TO I190-CONFIRM. 
BiOS-ClTY. 

HOVE 9 TX) X. 

HOVE 13 TO T. 

PERFORM ZllO-ACA TUU ZllOX. 

ACCePT WS-NEU-CITr mOM CONSOLE. 

IF HS-NKW-CITY - "<" 

CO TO B10A-LINE2. 
IF HS-NEH-CITT - "#" 

CO TO B190-C0NFIRH. 
BIOS-STATE. 

HOVE 9 TO X. 

HOVE 31 TO Y. 

PERFORH ZllO'ACA THRU ZilOX. 

ACCEPT WS-NEU-STATE FROM CONSOLE. 

IF WS'NEU-STATE - "<" 

CO TO BIOS-CITY. 
IF HS-NEW-STATE - "t" 
CO TO B190-CONFIRH. 
B107-ZIP. 

HOVE 9 TO X. 

NOVE 39 TO Y. 

PERfORH ZllO-ACA TRIU ZllOX. 

ACCEPT WS-NEU-ZIP nOM CONSOLE. 

IF WS-HEtl-ZIP - "<" 

CO TO B106-STATE. 
IF WS-NEH-ZIP • "#" 

CO TO B190-CONFIRH. 
BIOS- PHONE. 

NOVE 9 TO X. 
NOVE S* TO Y. 

PERfUlM ZllO-ACA THRU ZllOX. 
ACCEPT WS-NEU-PUOKE FROM CONSOLE. 
IF WS-NEU-PBOHE - "<" 

CO TO B107-ZIP. 
IF HS-NEW-PHONE - "#" 

CO TO B190-CONFIRM. 
B109-XNAS. 

NOVE 11 TO X. 

NOVE 12 TO Y. 

PERFORH ZllO-ACA THilU ZUOX. 

ACCEPT WS-NEW-XMAS PROH CONSOLE. 

IF HS-NE«-XHAS - "<" 

CO TO BIOS-PHONE. 
IF WS-NEH-XMAS • "#" 

CO TO B190-C0NF1RH. 
BllO-PARTT. 

NOVE 12 TO X. 

PERPOBH ZllO-ACA THRU ZllOX. 
ACCEPT WS-NEW-PARI'Y FROM CONSOLE. 
IF WS-NEW-P4RTY - "<" 

CO TO B109-XMAS. 
IF WS-NEW-PARTT - "t" 

CO TO B190-CONFIRH. 
Blll-BUSINESS. 

NOVE 13 TO X. 

PERFORM ZllO-ACA THRU ZllOX. 

ACCEPT WS-NEW-BUSINESS FROM CONSOLE. 

IF US-NEW-BUSINESS - "<" 

CO TO BUO-PAltTY. 
IF US-NEU-BUSINESS - "«" 

CO TO B190-C0MFI](H. 
B112-BILL. 

NOVE lA TO X. 

NOVE 12 TO Y. 

PERTORH ZIIO-ACA THRU ZllOX. 

ACCEPT WS-NEW-BILL PICM CONSOLE. 

IF WS-HEW-BILL - "<" 

CO TO Blll-8USTJie«$ 



B190-C0NPISM. 

NOVE 16 TO X. 

HOVE 1 TO Y. 

PERFORH ZllO-ACA THRU ZllOX. 

PERFORM Z020-E0L-ERASE THRU Z020X. 

DISPIAY I-O "Enter 'Y' to cooflra update " 

UPON CONSOLE 
ACCEPT WS-RESPONSE FROM CONSOLE. 

IF WS-RESPONSE - "<" 

CO TO B112-BILL. 
IF WS-RESPONSE - "C" 

CO TO B199X. 
IF WS-RESPONSE NOT • "Y" 

HOVE SPACES TO WS-NEW-RECORD 

CO TO BlOl-FIRST. 
IF WS-NEW-FIRST-NAME - "t" 

NEXT SENTENCE 
ELSE 
IF WS-NEW-FIRST-NAME NOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEW-FIRST-NAME • "-" 

NOVE SPACES TO WS-NAX-FIRST-NAME 

ELSE 

HOVE WS-NEW-FIRST-NAME TO WS-NAR-PIRST-NAME. 
IF WS-NEW-LAST-NAME - "#" 

NEXT SENTENCE 
ELSE 
IF WS-NEW-LAST-HAME HOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEW-UST-HAME - "-" 

NOVE SPACES TO WS-NAR-IAST-NAHE 

ELSE 

NOVE WS-NBW-LAST-NiME TO WS-HAR-IJIST-NANE . 
IF WS-NEW-LINEl • "I" 

NEXT SENTUCE 
ELSE 
IF WS-HEW-LINEl MOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEH-LIHEl - "-" 

NOVE SPACES TO WS-NAR-LINEl 

ELSE 

NOVE WS-NEW-LIHEl TO WS-MAR-LINEl. 
IF WS-NEW-L1NE2 - "#" 

NEXT SENTENCE 
ELSE 
IF WS-NEW-LINE2 NOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEW-LINE2 - "-*■ 

MOVE SPACES TO WS-NAR-LINE2 

ELSE 

HOVE WS-NEU-LINE2 TO WS-NAR-LINE2. 
IF WS-NEW-CITY - "#" 

NEXT SENTENCE 
ELSE 
IF WS-NEW-CITY NOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEW-CITY • "-" 

NOVE SPACES TO WS-NAR-CITY 

ELSE 

HOVE WS-NBU-CITY TO WS-NAR-CITY. 
IF WS-NEW-STATE . "#" 

NEXT SENTENCE 
ELSE 
IF WS-NEW-STATE HOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-MEW-STATE - "-" 

NOVE SPACES TO WS-MAX-STATE 

ELSE 

NOVE US-NCU-STATB TO WS-NAX-STATE. 
IF WS-HEU-ZIP • "#" 

NEXT SENTENCE 
ELSE 
IF WS-HEU-ZlP HOI > " " 

mXT SENTENCE 



30 



October *8S 



'66' Micro Journal 




^ 



K-HH5IC DPDHTES 



K-BBSIC npdites are noiD iTiilible. If gun 
pnrchised K-BBSIC prior to Jalg 1, 19B5 
and vish to hare gonr K-BBSIC updated, 
plaaee eand $35 ancloeed mith gonr master 
disk to Sontheast media. 



TILCI SSt 4M PVT tTH 



(615)842-4600 M 

^Hf II Wiif 

5d00 Cassandra Smith Rd. 

Hixson. TN 37343 

(or Inlormadon 

call (BIS) 642-460! 

CoCo OS-9- FLEX" 

SOFTU/IRE 



K — BH5IC under 05-9 and FLEX mill noiu compile 
TSC BflSIC. ZBHSIC. and ZPC Source Code Files 

lv*~ tSHllIta noiii makes th« multitude Of TSC ■•■$!£ Softuiare 
ouaiiable for ute under HS-V. Transfer your fouorlte BMSIC 
Praflrams to BS-V, compile them, Rstemble them, ond 
[B0CXDQ3 -- usable, multi-precision, ramlllar Softuiare Is 
running under your fauorite Operating SystemI 

K — BflSIC (as-* or riEH). iBclaJlH ff the esseaibler 

$199.00 



is« = ± £S s 1 



;^x±£sasfei 



Sculptor 



Nleroprocaaaar Davalepaamca Lcd.'s Ceaaarclal Appllcatioa Caaarator Prograa provides • FAST 
Coaaerclal AppUciclon DevctopaenC tool unavailable Co Che OS-9 and UnlFlRX Uaer before. Dewlop any 
Coaaerclal Appllcaclon In 20Z of Che noraal required dae; gain easy updaclng or cuacoalzlng. PLUS, 
Che Appllcaclon can alao be run on HS-OOS and Unix aachlneal Scalptor handles Input validation, 
coaplex calculsclona, and exception condltlona ae well aa the noraal collecting, dlaplaylng, reporting, 
and updating Inforaatlon In an orderly fashion. Key flelda to 160 bycea; ununited record slse; file 
alte should be held Co 17 allUon recorda. Utilizes ISM File Scruccure and B-cree Key files for rapid 
acceas* InpuC and OiiCput coimunlca tlon with other prograaa and fllea plus a llbrsry of ISAM routines 
for use wlch C Prograas. Run-clae Included w/ Che Oevclopaenc package; a complied Appllcaclon only 
needa a Run-clae Llcenae, Additional charge for Necworked IMlta, Prices for Otsalepviac Pa«kag«/lua- 
tlas , Otscouncs available for purchases of S ar ■are Run-clae Packagea. 



UnlFUX ~ $USO.OO/)37.0O 

OS-9 Lvl II — $99S. 00/200. 00 



Unix — up Co $2535/675 — CaU for Info! 
IBK PC i conpacs — $633.00/170.00 



BulcM Ta 



Sa1«B 



by Otic Puckttt '- An eicelltnt Seok en using QS-9. Orttntad 
toixrds uilng tlie poMerful taalcM rr i|i>Mlri uaiatft, <t *1t« 
contains a lot or good infbnialtiMi en atlsf K-1 (n ^tnaral. 

NorMlly nS.tS 
S»Kia1 RN only tW.M 



^, 



na Soft 






-^ 



sc 'Ftti utnuicf* MI 

TSC "Sort Ntrja" mi 

TSC 'ttm itiic' MS 

TSC *Cit«n<l«il Baste' MS 

TSC •0«»U9" MS 

TSC TLEX Olognosttcs' MS 

TSC "Tajl PT-ocessfnj syjlaa" MS 

TSC 'CeOOO Cross Asscdbler' mi 



S7S.0O. 
T75.0O, 
T75.00, 
SIOO.OO. 
t7S.OO, 
S7S.0O. 
S7S.0O, 

teso.oo. 



only 
saly 

> wily 
only 

' only 
only 
onty 



tw.w 

tM.W 

tM.«e 

Mf.BO 
Mf.OO 



RN only SIM.H 



t4t 11 n.t.i 

(•1*. tl.JO) 
[144 II t«lf><> F«r>l(B 



■FUn iS a (riA^nai* 0< T»ct«»c«» Synwns Con«^ani» 
''0S9 a a tcaoemifli o( Mic<oi»va 

III PIvaa 
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sarTU/iRE 



:lfy vow C^vvtlag SratiM i Disk Sli 

October 85 



MaUaclllty 

P - FLU, CCr • Color 

O • 06^9, GCO • Color 

O • UhlFIXX 

CQ> ■ Color Ctwvut^r 

OCT • Color Coputar 

III 



Ctm^vtri FLO 
CavuCfr C6-9 

01 Sk 
Tap. 
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(615)842-4600 
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TELEX 331 «14 PVT tTH 

2-4600 jA 



5900 Cassandra Smith Rd. 
Hixsoo. TN 37343 

lor information 
call (615) e*2-*601 

CoCo OS-9'" FLEX" 

SOFTUI/IRE 




HSSEmBLEHS 



ASTRURO* rron SouthCdt HtiU — A 'Structured A;secab1er for ttw 
«eor xMch requlrti tlie TX Micro AiiMAler. r. CCf - m.K 



Micro Aswielcr (or TSC 



Th« PLEI STAIOmO Asteadler. 

spec<*i — ccr ns.oo: F fso.m 



OSM litended 6609 Kacro Aiieabltr froa LlRtf I/O. — Provldef locti 
Itbeli, Notoroli S-recordt, and Intel Hex records; XREr. Oene- 
rite OS-9 l^emory andules under FIEX. FLEX. CCF, OS-9 S99.00 

Ile1scatlii9 AtsciAler a/Unklnl Loader froa TSC. --Use xlth Mny of 
tie C and Pesct) Cnnptlers. r.ccF tlSO.OO 

RACX. b7 Crihari Trace froa Uladrntli Ntcro ^coas — Co-Seitdenc 
tdltor and AABeabler; Inmi lnccr4ctlv« A.L. Progra^ng for ■•all 
to ae<)lu*-«l>«j ITOItrasl. F,CCr • $71.00 

Oua — HACK v/ Croaa Asaaabler for 6MI0/l/2/)/e F.CCr - SM.OO 

TRUE CROSS ASSCMSLERS froa Coafitcr Syitras Cotialtaati -- 

Supports 1802/S, Z-80, 6800/1/2/3/e/lt/HCtl, Ce04, teoS/DCOS/ 
M6e0S. 6609/00/01. 6S02 faall/. 8080/S. e020/l/2/3S/ClS/19/ 
40/4e/C4e/49/C49/S0/874e/49, e031/Sl/e7Sl, tml 68OOO Systeas. 
Assembler and Listing roraats saae as target CPU's foraat. 
Produces aachlne Independent Motorola S'Tcxt. 

REX, CCF, OS-9, UnlFLEX each - (SO. 00 

any ] - tlOO.OO 

the coaplete set «/ C S «»r e« leicept tAc 68000 Source) - JZOO.OO 

lASM Cross Asseablers for FLEX 'roa Cs^vtMtc LM. — TMs set of 
6800/1/2/3/S/8. 6301. 6S02. eo80/S. and 780 Cross Assecblers 
uses th* raalllar TSC Macro Asstaeler Looaand Line and Soruce 
Code foraat, Asseabter options, etc., In providing code 'or the 
target CCU's. Caaclete set. FLEX only ' tlSO.OO 

CtASMi fron Dgyd I/O — 8-81 1 Kacro Crois Asseabler idth saae 
features as OSM; cross-esseaiile to 6800/1/2/3/4/S/8/9/1I. 6S02. 
1802. 8048 Sers, 80/8S. 1-8. 1-80. TMS-;000 sers. Supports the 
target chip's standard eneaonlcs and addrtsstng aodes. 

FLEX. CCF, OS-9 Full package — S344.00 



CU9B 16.32 Fron Llert )/0 



Cross Asseabler for tbe iSOOO. 

FLEX, CCF, OS-9 t249.aO 




pis HSSEmBLEHSj 



SUPER SLEUTH Froa Coapatcr Sysuai CoaialUbti '- Interactive 
Slsasseabler; e>trea«1y POWERFULI Oisk File Binary/ASCII 
E«aa1ne/Cnange. Absolute or FULL Disasteatly. XREF Generator, 
Label 'Hane Ciangcr", and Files of 'Standard Label Naaes* for 
different Operating Syiteas 



Color COivular 

ceo (32K Req'd) OtJ. Only S49.00 
CCF. ObJ. Only ISO. 00 
CCF. n/Source ]»9.0a 
ceo. OtJ. Only ISO. 00. 



SS-SO las (*11 a/ A.L. Saurce) 
F. t»9.00 

U. tioo.oo 
0. tioi.oo 



DTIANITC t fron Coapoter Sytteas Center — Eicellent standard 
*9>tch Node* Olsas seabler , Includes XREF Generator and 
'Standard label* Files. Special OS-9 options •/ OS-9 Version. 

CCF. ObJ. Only 1100.00 CCO, ObJ. Only I S9.» 

F, * ■ 1100.00 0, * ' SISO.OO 

U, * IJOO.OO 



PHOGRflmnnnGlLHnGU 



HGESlj l 



'FLEX IS a iradwnsrk ol TecFmeal Syslems Coosuitanis 
'OS9 ts a tiadiinucii o< Mcfowaie 

III Plea: 



PL/9 froa Malraab Merc ajnceaa — ty Crabaa Trotc. A coabloadon 
Cdltor/Coapller/DabUKger . Dlracc aourca-co-object coapllation 
delivering faat, eoapaet, re-entrant. ROtt-ablv, PIC. 8 4 16-blc 
Integer! t 6-dlglt Real number* for all rcal-Korlil problcaa. 
Direct control ov«r AU, Sy«t«a reaourcea, Includlog loterrupca. 
Coaprehenolve library aupport; alaple Machine Code Interface; 
acvp-b/^-a tap tracer for Ijtatanc debugging. )#•# page Manual 
with tutorial guide. F, CCf - SIM.M 

MHINSICAL froa Vhlastcel Ooetopaents — Nov supports Real ntmbtrt. 
"Structured Prograaalng* WITHOUT losing the Speed and Control of 
Assembly Languagel Sln9le~pass Coieller Features unified, user- 
defined I/O: produces ROHabte Code; Procedures and Modules 
(Including pre-coaplled Nodules): nany 'Types* up to 32 bit 
Integers, 6-dttU Real Miabcrt, unllalted sited Arrays (vectors 
only): Interrupt handling; long (triable Naaes: Variable 
Inl tlallta tlon; Include directive; Conditional cooolllng; direct 
Code Insertion; control of the Stack Pointer; etc. Run-TIae 
subroutines Inserted ai cal1e4 during coapllation. Nonwlly 
produces lOt less code than PL/9. F and CCF - SUS.OO 

C COBpllcr fron WliiAriit)! Wcro Systeas by Jaaes McCosh. Full C for 
FLEX except bit-flclds, Including an Asseabler. Requires the TSC 
Relocating Asseabler If user desires to Inpleaent his eun 
Libraries. F and CCF - t29S,0a 

C Coapller froa latrol — Full C except Doubles and 8lt Fields, 
streanDned for tne 6809. RelUble Coapller; FAST, efficient 
Code. More UNIX Coapatlblf thin aost, 

F, CCF. and • 1375.00 U - S42S.00 

PASCAL CoaplUr froa LucKata -- ISO tesed P-Code Coapller. 

Oeslgned especially for Mlcrocoeputer Systeas. Allows linkage to 
Asseabler Code for atxleua nenlblllty. 

F and CCF S" - 1190.00 F «r - I20S.00 

PAScai. CaapUer froa OaagaSafi (nov CartKlad larMara) — Por tha 

PIOflSIIOlAI.; ISO Saaed. Kattvt Code Coapller. Frlaarlly for 

Real-Tlae and Proeaaa Control appUcatlona. Powerful; ^'leiclbte. 

Raqulraa a -Motorola Coapatlbla' RelO. Aaab, and Linking Loader. 

P and CCP - $425.00 One Year Xalnt. - $100.00 

I-IASIC froa ILOTO I/O — A 'Native Code' lASIC Caviler which Is 
now rally TSC XiASIC coapatlble. The coapller coiplles to 
Asseebly Language Source Code. A REM, strcaal«ii(4. Asseabter It 
now Included allowing the asseably of LARGE Compiled X-SASIC 
Prograas. Conditional asseably reduces Run-tlae package, 

FLEX. CCf, OS-9 Coapller iriu Asseabler - (199.00 

CRUICM COOOL fron COVascnic Ltd. — Supports large subset of ARSIl 

Level 1 COBOL with aany of the useful Level 2 features. Full 
FLEX File Structures. Incluillng Random Files and the ability to 
process Keyed Flies. Segaent and link large prasraat at 
runtlae, or lapleaented as a set of overlays. The Systea 
requires S6X and CAK be run with a single Disk System, 

FLEX. CCF: WorMlty 1199.00 
SvacUl latr«<«ctoo Price Iwlrlle In effect) — S99.9S 

FORTH froa Stearns Electroikt — A CoCo FORTH Prograaolng 
Language. Tatlorvd 90 the C«C«1 Supplied on Tape, transferable 
to disk. Hrltten In FAST ML. Many CoCo functions (Graphics. 
Sound, etc.). Includes an Editor, Trace, etc. Provides CPU 
Carry flag accessltilltty. Fast Task Multiplexing. Clean Interrupt 
Handling, etc. for the "Pro". Excellent 'Learning" tooll 

Color Conqiuter OKT • SSt.lS 



ftaat 



andra Smith Rd 
■ ion. TM 37343 

Inio (eii) «<?.<80l 



iili 



sflrTiii/iiifi 



:lly Yo 



C^arstlng Systi^ i Disk six 



AiaUabUlty 

F • FLEX, CCT • Colir Coulter FLO 

O r OS-9. oro • Coint Co"puter OS-9 

U • UilFLrx 

CCS • Color coinfuter Olik 

OTT • Color Cooputer Tape 

I til 
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ttiIcO) iDtf froa Seittlitiit Ni4U — TM> liilcOf Iraii 

Htdlty It • BaitcOS Pragria wlitch olll produc* i 'pretty 
printtd* lilting oltd »ich lliw mattered, folloMed by « caaplett 
croil rtftrtnctd lilting of all vtrlabUi, cit«rnjl proctdurei, 
•nd 1tn« nuabtri ctMtd. Alio Includti t tr^rmi Hit Utdttgr 
■hlch outputi t ftlt 'pretty printed* lilting irltli lln* nioOeri. 
ttqulrei 34ilc09 or RunB. 

I ceo obj. only — SM.M: ■/ Sourc* - J7».»S 

ImetAttm rtlCAL DTXUTIII (iMiair** UKIB4Z* raxal <i«r i) 
ttzr — protjuca m Croaa Kefiranca LlNClflf of any Ccxr: orlcncad Co 

Paacal Sooree. 
tlCtODI •- Includa ochar PtUa In a Sourca TexC, Includlnlf binary; 

unLlaltad niacins eapabtllcUa. 
PtOPII^ll — providva an Indanccd^ Nuaberedt ~Sc ruccofl raa~ of • 

Patcal Sourct TaxC Ptia: vlaw cha ovarall vcruccure of lar^a 

proSraaa, profraa Inctfrlcy, ace. Suppliad In Paacat Sourct 

Codt; raqulraa coaplladon. 
F, CCP — ua Otlllty y - S«0.00, »' - SM.OO 

DUi fron Sentlitiit llo«la -- A UalFLtX 'basic' Oe-Comiller. »•- 
Creatt a Sourct lilting froa UntPLEX Co^ilod bailc Progriai. 
Werki ■/ All vtriloni of 6809 UnlFLEX bailc. U - tZ».95 

FULL SCMEI nmii DISPLAY froa Caayater »«I«h C«a««)tMU — TX 
tataadad lASIC prograa lupporxi any Serial Teralnal ulth Curior 
Control or Neaory.Mapptd TKIto CHipKyi; substantiilly txttndi 
tht Cipibllltiti of tht Pregraa Oeilgner by providing a table- 
drl«tn netKod of dticrlbing and ullng Futi Scrttn Oliplayi. 

P aad CCP, U - tti.OO, v/ Sourca - JM.OQ 



^DlSKjUTILITIES 



OS-* TMtk froa SawtMait Nt^la -- For Lral I an1y. Uit tht 
Cattadad Neaary capability of your SMTPC or Glali CPU card (or 
ilatlir foraat OAT) for FAST Prograa Coaplitl, CM) titcvtlon, 
high ipeed inttr-proctii coaatunlcittoni (wttAoitt pipe bufftri), 
etc. - SAVE that Syitea itawiry. Virtual Oiik lite li nrlibit In 
<K Increaenti up to WOt, 5aae AiieM>ly Requirtd. 
-- m«I 1 OM.T •• 05-9 obj. only - in.K; ■*! Sourct - tl49.9S 

0-F froa StatlMiit Media •• Mritttn In lASKOI (aft* Sourct), 
tndudal: IIFOUMT, a BASIC09 Prograa that reforaiti a cboitn 
iBoont of an 0>-t dlik to Fin Forait lo it can be uied noraally 
by FLEX; and FLCi, a SAStCM Prograa that doei tAe actual raad 
or arlte function to the ipectal Q-f T)rt»f1Wr MUi uter-frlendly 
aenu driven. Read the FLEX Directory, delete FLEX Filei, Ci^y 
both dlrectioni, etc. FLEX uieri uie the ipecial diik Juit like 
any other FLCX dlii. - t7«.«s 

COPflMLT froa SaatDtait Itadia -- Copy lAKC Oliki to leyeri) 
laallar dliki. FLEX utiiltlei allow the backup of MY tiaa dlU 
to any SMALLER lite ditketui (Hard Qfik to f)opplei, 8* to S', 
etc.) by llaply Inierting dilkettei ai requeited by UJiliai.T. 
No foaling alth directory deietloni, etc. COPTIWLT.Clie 
underitandi noraal 'copy* lyntax and keepi up with PI1ei copied 
by aatntalning directorlei for both holt and receiving diik 
lyitea. Alio tncludai UCXW.OB to dotmloed any ilze 'randoa' 
type file; USTOICcni to reitructure copied 'rand oa' fU ei for 
copying, or recopying beck to the noit lyilea; and FVUK.OV 
ii a 'bonui' utility that 'rellnki' the free chain of floppy or 
hard diik, ellalnating fragatn Cation. 

Cai^lataly dac^Mtaa tiMtm»\i Uai«f( Saa u fltoi lac1a4H. 

ALL I Prograal <FLEX, 8' or S') tM.SS 

COPTCAT froa tacidata •- Paiea) MIT required. Allowi reading TSC 
Ktnl-FLEX, SSt D0S6B. and Digital Reiearch CP/N tHikl ahile 
operating under Fiei I.O. FLCI 2.0, or FLEX 9.0 with 6800 or 
6809 SyiUai. COPTCAT aill not perfor* afradei, b«t, betneen 
tha prograa and the aanui), you itand I good chance of 
accoapllihing a tranifer. Alio indwdei loae utilitlei ta help 
out. Prograai lupplled in Nadalar Saarca Caaa (Aiieably 
Language) |« help lolva unuiua) probltaii. 

F and CCF S' ■ 190.00 F B' - SCS.OO 




•• anppiK -• \ 

Ada It D.l.A. 

(sla. tI.M> 

Jiaa )X larfaca raralea 

\n air Fatata* 



'FLEX I* a ifadama(« e^ ftchnat Syslemi ComuKar^s 
*OSg a a itadamaih ol Microiaa'a 



^ TELEX SSi did PVT ITH 

(615)842-4600 M 

5900 Cassandra Smith Rd. 

Hixson. TN 37343 

for information 

call («1S) 642-4801 
CoCo OS-9'" FLEX" 

SflFTlU/IRfi 



FLKX DI91 VTILITXM froa Cm^ f r ^vtMW c^uvlCMt* — Bight (S> 
diffiranc Ai««ably Lan|ua|a («/ Sourca Coda) PUX UtUlCUi for 
•«try rux (/••ra Tooltwiti Cory « HU wtth CSC lrr*ni TtnC Olili 
for «rror«^ C*^i«n two Otiika: • fate OlM tAck^ PtosraK; I4it 
91«k t«cc*rsi Ll«*Brla* fT*«~Ckal» on tha OI»k; print Blak 
ltfaittfleBCl«*; and Safc «nd lAflac* cha (hak DlraCtory (in 
aortad ordar). — fLOl -- Tan XSAStC PrograBa lnclu4Uf: A 
■MIC KtM^w»ar vlth IZTlAa amr -lEmffT Uk« eh«ck for altalni 
labtl daflftlt lona, proc«ttta DIak co iHak ln«ta«rf of la HaBory, 
ace. Othar prograBa CB^arai HBrf*, or C«a«rBC« VH*tBB 
battfaan c«o lASIC Prograaa, chack BASIC Sa^aaaca #k*Wca, 
coapara rva wum^ummtmd fUai, and ) Pro|r«a» for aacabllaMni a 
Maacar Dlraccarr of aavaral Dlaka, and aorclD|, acLactliA, 
Qpdatlag, and prlntlfif paglnatad llatlnga of cHaia fUaa. A 
SASIC #raaa-tafaraaaa PrOftraa* writ tan In Aasaablj Lanftuaga* 
■fblcfa proirldaa aa X-ftaf liaclns of tha Varlablaa and Vaaarwd 
Word! U 7*C IAIIC» ZI4I1C aod rUUBPOn A&SIC PrograaH* 

ALL UtUltUf 1ar1a*i B««n9 <aU(i«r kAStC or A-U Sourca Coda). 

P and CCf - $S«.09 

BASK «UUcl«B MjT for kdfUI ^ $19.99 



communiCRTinns 



] 



CMODEN Talecoaaaalcatipai Pratraa froa Ceapatar Syttaai 

Caaialtaatt, lac. — Nenu-Oilnn; lupporti Duaft-Teralnil Mode, 
Upload and Doanload in non-protocol aode, and the CP/N 'ModaaT* 
Chriitenien protocol aode to enable coaaiunication capabllltlei 
for ilooit any requlreatnt. Written In "C'. 

FLEX, CCF, OS-9, UniFLEX; tilth coaplete Source - SIOO.OO 

Kithout Source - (SO.OO 

IDATA froa SaatMait Madia — A COlWIilCATIOI Package For the 

UalfLCI Operating Syitea. Uie with CP/N, Kain Fraaei, other 
UnlFLfX Syltenl, etc. VertPiei Transatsiion using checkliM or 
CRC: Re-Tranlalti bad blocki, etc. u . tJM.ft 



EHmEl 



RAPICI - 6809 Ckai* Prograa froa Saathaatt »<ta — Itaqulrti FLEX 
and Oliplayi on Aay Type Teralnal. Fcaturei: Four laiali of 
play. Soap ilde. Point icoring lyitea. Tao dttp)ay boardi. 
Change iktil level. Solve Checkaate probleai in 1-2-3-d aovet. 
Nake aove and nap ifdci. Play aliite or black. Thit ii eite of 
the ttraafait CHESS prograal running on any aicrocoaputer, 
eitiaated USCF Rating 1600* {better than aait 'club' playtri at 
higher level t). F and CCF - jjg.fS 



%^.« Aaii Hill* 
~ ''*' '^ - ^-^ ""= SflFTlDflRE 
inro leis) B4;-aeoi ■■■ I ■IIIIIB 



M«tlat>lUly I 

r a FLEX. CCr • Cotnr Cai«>iter rLEX 

O - OS-9. ODJ • Color Ciwpmec 0K-» 

V ■ UhtFLDC 

CCD a Color Co>*^^tef Dish 

OCT ■ Color Coa^puter Tapa 
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TKLEX Sll 414 PVT CTH 



(615)842-4600 M 

% ^iAIA 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

(or Information 

call (Sl5) B42-4601 

CoCo OS-9'" FLtX" 

SflFTUIARE 




SrCLLl 'Coaputer DIcttoniry* froa SMUMlt Nidit — OUR 170,000 

MMil iMt 19 • ■••^ 'rca Klthln your Editor or Hord Proceisor 
(■Ith tht S^H.CJM Utility vMch optritet tn cDc n.tl UCS). Or 
check tnd updite ttw Teit Ifttr entry; ADO HORDS to the 
Dictionary. 'Flag* questloniblf aordi In the Teit, 'Vteir • mrd 
In conteif before changing or Ignoring, ttc. jrcUS first 
check] a 'Cobboh Word Dictionary*, then the norail Dictionary, 
then a *Periona1 Uord LItt*. and finally, any *SP*clal Hord Hit* 
you aay haw ip*cined. Srtl.i.1 aUo allows the ute of teall DIM 
Stertf* lytteat. 

r and CCr - lUf.M 






lOMJ froa HettcMitvr *fr](«4 tatlhest ^(wi — PoKrful DBMS: 

n.i. program alii »ork on a tlitfle t1te4 S* dlik. yet Is r-A-S-T. 

Supports Relational. Setgitentlal, Hierarchical, and Randoa Access 

File Structures; has Virtual Newiry capabilities for Glaat data 

Bases, IMS lf«*1 I provides an *entry lewl' SysttB for defining 

a Data Base, entering and changing the Data, and producing 

Reports, IDNS Leral II adds the POWtRFUL 'ttKRATT fecPI^ 

vlth an English Language CoiBHnd Structure for aanlpula ting the 

Data to create nea file Structures, Sort. Select, Olculatc. 

etc. XDNS lenl III adds special *Utl1ltles* vhlch provide 

additional ease in setting up a Data Base, such as copying old 

data Into nex Data Structures, changing Systea Paraaetcrs, etc. 

MHS Systea NaMtt - tM.tS IBRS Lv 1 I - F < CCF ■ 1121, 9S 

IMS L«l II - F < CCF - IIM.K 

IMS Lri ni - F t CCF - tM*.*S 



|,W0HD|PHaCE5SinG 



HUaitnwt rACCACtS -- Srmtt rui** CawatM- Ca. and Uafwrul Cat* 
RaiMrck, lac, both hane Data Base and Business Packages i^-ltten 
4n TSC XBASIC for FVCI. CaC« Ha, and IMFLEX. 



SCBCOITOB lie froa Hlndrash NUrs Syttns -- Poverful Screen- 
Drlented Cdltor/Hord Processor. Alaast SO different coaaunds; 
over 300 pages of Docuaentatlon vlth Tutorial. Features Hultl- 
Coluan display and editing. *declMl align' coluars (AUO add the* 
up autoaatlcally). aultlple keystroke aacros, e<en/odd page 
headers and footers, labedded printer control codes, all 
Justifications, 'help* support, store comnn coiaund series on 
disk, etc. Use supplied 'set-ups*, or reaap tttt keyboard to 
your needs. Except for (iroportloxal printing, this package will 
00 n AILI 

MOO or U09 FLEX or SSB DOS. OS-9 - tWS.OO 

•TtlO-ClAPi from Creac PUlae Caapxar Ca. — A fuU-aeca>a 

oriaocad HMD PBOCCSSOB — <ua«« the SI * 2a Maplay Screaoa on 

CoCo PlBX/STAB-DOS, or PBJ Uocdpak). PuU acrcao dtaplay and 

a41cln(; aupfxria tha Qalay Waal pcoperctaaal prtotara. 

■» fMCtt — > CCP and ceo - »•»,»!. F or - 51?*, tS. « - 8»1*.M 

■TTLO-BfBLL froa Craac plalaa Caapatar Ca. ~ Paat Coaputar 

Hcltooary. Ooaplaaanta ScyloB'aph, 
■> PMflBl > CCP and CCO - SM.9S, P or - ^W.M. U • j»4>.W 

■mil mtn froa etaat Plataa C ^ car Oa. — Merge Halltof UaC to 

"Pora" Lattera, Print auUlpla Fllaa, etc.. chroufh Stylo, 
■« fmi > CCP and CCO - tS«.*S. F or - }W.W. U - $119. >S 

fm#-»A» Graph <- Spall * Narga packaaa Baallll 

P or - $929.93. U - (S49.9S 

JOST froa Saatkaift Neilt -- Teit Foraatter developed by Ron 
Anderson; for Dot Natrli Printers, provides aany unique features. 
Output 'Foraatted* Tot to the OltriV- Use the FmVT.dB 
supplied for producing aultlple copies of the "Foraatted* Ta«t on 
the Printer INCLUDING IHBEOOCS PSINTER COMMANDS (very useful at 
other tiats also, and worth the price of IM progrea by Itself). 
*Vs«r C— f l n r « *le' for adapting to other Printers (coaes set up 
for Epson NX-BO irlth Craftrat); up to ten (10) labedded 'Printer 
Control Coaaands*. Coapensatet for a 'Double width* printed 
line. Includes the noraal line width, aargln. Indent, paragraph, 
space, vertical skip lines, page length, page nuabering, 
centering, fill. Justification, etc. Use with ART Editor. 
Supplied with 'Structured Source' (Wlndrush Pl/9); easy to see 
the flow of the progria. 

F and CCF - M9.K 




A 



W< II D.I.I 

(•la. II. M) 

laa M iMtfac* rBr*ita 
101 11 r r»>ii> 



'FLEX (S a (laoamif* ol Tachmcal Syswms ConsuhanM 
~0S> IS a iradamaiK pi Mic'Owa>* 

111 PiMM 



I 
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TABULA RASA SPRCADSKEtT froa CoavaUr Systcas Caasaluats — 

TABULA RASA Is slallar to DESKTOP/ PLAii; provides use of ubular 
coaputatlon scheacs used for analysis of business, silet, and 
econoalc conditions. Henu-drlven; e«t*nslve report-generation 
capabilities. Requires TSCi Entaad a ^ lASIC. 

P and Ccr. V • SSO.OO, w/ Source • SlOt.Ot 

DTIIACALC froa Coaputer SystMi Caator — Electronic Spread Sheet 
for the U09. 

F and SPECIAL CCF - smO.OO. U - SMS.OO 

FULL SCKEi inEITOIT/NV froa ti^iar ^(ms Coatalttati ~ Use 

the Full Screen Inventory Systea/Naterlals lequlrraent Planning 
for aalntalnlng Inventories. Keeps (tea field file In 
alphabetical order for easier Inquiry. Locate and/or print 
records natching partial or coaplete Itea, description, vendor, 
or attributes: find backorder or below stock levels. PrInt-outs 
In Itea or vendor order, MRP capability for the aalntenance and 
analysis of Hierarchical asseablles of IteaS In the Inventory 
file. Requires TIC's taWndad BASIC. 

P and CCP, U - SSO.OO, w/ Source - $100.00 

FULL SCIEta MAILINB LIST from Coap«tir ^frni CeatalUati — The 
Full Screen Nailing List Systea provides a aeans of aalntalnlng 
slaple aalllng lists. Locate all records aatching on partial or 
coaplete neoe, ctcy, state, tip, or attributes for Listings or 
Labels, etc. Requires TSCs btt««H BASIC. 

r and ccr, U - SSO.OO, w/ sourc* - SIOO.OO 

OUT-TRAC Fopaeaatar froa Saatfttait NaOla — An XBASIC prograa 
that plans a diet In teras of either calories and percenUge of 
carbohydrates, proteins and fats (C P &tl or grias of 
Carbohydrate. Protein and Fat food eichanges of each of the sl> 
basic food groups (vegetable, bread, aeat, skia altk, fruit and 
fat) for a specific Indlvfdua). Sc>, toe. Height, Present Height, 
Fraae Slie, Activity Level and Basal Meubotlc Rate for noraal 
Individual are taken Into account. Ideal weight and sustaining 
calories for any weight of the aborc Individual are calculated. 
Provides nii^»r of days and dally calendar after weight 9aal and 
calorie plan Is deCeralned. 

F - JS9.9S. U - W-W 



fc^ »** hi a If 



§*•¥ IftitlA 



in(o (fttaj a*? 4601 






r « FLEX, ay • Color Conpucer FLEX 

O - OS-9. CEO . Color Coapjter 06-9 

■ UhlPLEx 

^31 • Color Conputer Disk 

C]Cr > Color Computer Tape 
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ELSE 

IF WS-NBW-ZIP - "-•• 

MOVE SPACES TO WS-NAR-ZIP 

ELSE 

MOVE WS-NEW-ZIP TO WS-NAR-ZIP. 
IF WS-NEH-PHONE - "#" 

NEXT SENTENCE 
ELSE 
IF WS-NIH-paONE NOT > " " 

NEXT SENTENCE 
ELSE 

IF HS-NEW-PHONE - '■-" 

HOVE SPACES TO WS-NAR-PHONE 

ELSE 

MOVE WS-NEW-PUONE TO WS-NAR-PHONE , 
IF WS-NEW-XMAS - "t" 

NEXT SENTENCE 
ELSE 
IF WS-NEW-XMAS NOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEW-XMAS - "-" 

HOVE SPACES TO WS-NAR-XHAS 

ELSE 

HOVE WS-NEW-XMAS TO WS-NAR-XHAS. 
IF WS-NEW-PARTY - "#" 

NEXT SENTENCE 
ELSE 
IF WS-NEH-PARTY NOT > '» " 

NEXT SENTENCE 
ELSE 

IP WS-NEW-PARTY - "-" 

MOVE SPACES TO WS-NAR-PARTY 

ELSE 

HOVE WS-NEW-PARTY TO WS-NAR-PARTY . 
ir WS-NEH-BUSINESS - "#" 

NEXT SENTENCE 
ELSE 
IF WS-NEH-8USINESS NOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NtW-BUSlNESS - "-" 

HOVE SPACES TO WS-NAR-BUSINESS 
ELSE 

MOVE WS-NEW-BUSINESS TO WS-NAR-BUSINESS . 
IF WS-NEH-BILL • "I" 

NEXT SENTENCE 
ELSE 
IP WS-NEW-BILL NOT > " " 

NEXT SENTENCE 
ELSE 

IF WS-NEW-BILL - "-" 

MOVE SPACES TO WS-NAR-BIM. 
ELSE 

MOVE WS-NEU-BILL TO WS-NAR-BI1,I,. 
B199X. EXIT. 
KIOO-SEAD SECTION. 

K£AO NAME-FILE INTO WS-NAHE-ADDR£SS-RSOOIU> 
KEY IS WS-REC-NO 
INVALID KEY 
MOVE 1 TO BOF-PLAG 
MOVE "1" TO WS-LAST-NAME 
MOVE "I" TO WS-NAR-LAST-NAME. 
RIOOX. EXIT. 

ZOOO-TIRMINAL-CONTROL SECTION. 
ZOO 1 -DELAY. 

ADD 1 TO DEtAY-VAR. 
ZOOIX. EXIT. 
Z020-E0L-ERASE. 

DISPLAY 1-0 $03 UPON CONSOLE. 
HOVE ZEROES TO DELAY- VAR. 
PERFORM ZOOl-DEtAY THKU ZOOIX 
UNTIL DELAY-VAR > 600. 
Z020X. EXIT. 
ZllD-ACA. 

DISPIAY I-O $1B $30 

ACA-ADDRESS (X) ACA-ADDRESS (Y) 
UPON CONSOLE. 
ZllOX. EXIT. 



IDENTIFICATION DIVISION. 
PR0GRAS1-I0. NAHPOOAB. 
ENVIRONMENT DIVISON. 
INPUT-OUTPOT SECTION. 
Fl IE-CONTROL. 

SELECT NAHE-KILE ASSIGN TO "WNANDOOOl DAT" 
ACCESS MODE IS RANDOM 
FILE STATUS IS NAME-STAT. 
DATA DIVISON. 
FILE SECTION. 
FO NAME-FILE. 
01 NAME-RECORD PIC X<126). 
WORKINC-STORAGE SECTION. 
COPY "WNAMCDUPOCBL". 

COPY "WWFCCDTOOCBL" . 

COPY "WNAMCDMSTCBL". 
PROCEDURE DIVISION. 
CIOO-CLEAR-FIEICS SECTION. 

MOVE "1" TO OV-SWITCH. 

MOVE S TO X. 

MOVE 13 TO Y. 

PERFORM Z110~ACA THRU ZtlOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 

MOVE 45 TO Y. 

PERFORM ZllO-ACA THRU ZUOX. 

PERFORM C200-DISPIAY-DASH THRU C200X 13 TIMES. 

MOVE 7 TO X. 

MOVE 13 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 20 TIMES. 

MOVE 45 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPIAY-DASH THRU C200X 20 TIMES. 

MOVE 9 TO X. 

MOVE 13 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 10 TIMES, 

MOVE 31 TO Y. 

PERFORM ZllO-ACA THKU ZllOX. 

PERFORM C200-DISPIAY-DASR THRU C200X 2 TIMES. 

MOVE 39 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200~DISPLAY-DASH THRU C200X 9 TIMES. 

MOVE 54 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPLAY-DASH THRU C200X 10 TIMtS. 

MOVE 12 TO Y. 

HOVE U TO X. 

PERFORM C300-CLEAR-PLAGS TK£I] C300X 4 TIMES. 

MOVE 16 TO X. 

MOVE 1 TO Y. 

PERFORM ZllO-ACA THRU ZUOX. 

PERFORM Z020-E0L-EilASE TKBIl Z020X. 

MOVE 3 TO X. 

MOVE *3 TO Y. 

PERFORM ZllO-ACA THRU ZllOX. 

CALL "NAHP004A" OVERLAY. 
ClOOX. EXIT. 
C200-DISPLAY-DASH. 

DISPIAY 1-0 "_" UPON CONSOLE. 
C200X. EXIT. 
C300-CLSAH-F1AGS, 

PERFORM ZllO-ACA THRU ZllOX. 

PERFORM C200-DISPUY-DASH THRU C200X. 

ADD 1 TO X. 
C300X. EXIT. 

ZOOO-TERHINAL-CONTROL SECTION. 
ZOO 1 -DELAY. 

ADD 1 TO DELAY-VAR. 
ZOOIX. EXIT. 
Z020~EOL-EftASE, 

DISPLAY 1-0 $05 UPON CONSOLE. 

MOVE ZEROES TO DELAY-VAR. 

PERFORM ZOOl-DELAY TUKU ZOOIX 
UNTIL DELAY-VAR > 600. 
Z020X. EXIT. 
ZIIO-ACA. 

DISPLAY 1-0 $1B $3D 

ACA-ADDRESS (X) ACA-ADDRESS (Y) 
UPON CONSOLE. 
ZllOX. EXIT. 
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ZOOO-TERNINAL-CONTKOL SECTION. 
ZOOl-DELAY. 

ADD I TO DELAY-VAB. 
ZOOIX. EXIT. 
ZOIO-HOKE-CUKSOR. 

DISPLAY I-O iOk UPON CONSOLE. 
ZOIOX. EXIT. 
Z020-EOL-ERASE. 

DISPIAY 1-0 $0} DPON CONSOLE. 

NOVE ZEROES TO DELAY-VAR. 

PESrORM ZOO 1 -DELAY THIU ZOOIX 
UNTIL DELAY-VAR > BOO. 
Z020X. EXIT. 
Z0)0- EOS-ERASE. 

DISPLAY 1-0 $06 UPON CONSOLE. 

NOVE ZKROeS TO DEUT-VAR. 

PERFORN zdoi-DELAY TUIU ZOOIX 
UNTIL DELAY-VAE > 100. 
Z030Z. EXIT. 
Z040-RACX-SPACE-CURS0R. 

DISPUY 1-0 $08 UPON CONSOLE. 
Z040X. EXIT. 
ZOSO-U0R-TA»-CURS0R. 

DISPLAY 1-0 $09 UPON CONSOLE. 
ZOiOX. EXIT. 
Z060-LLNE-PEED. 

DISPLAY 1-0 $0A UPON CONSOLE. 
Z060X. EXIT. 
Z070-1ETURM-CUISOR. 

DISPLAY 1-0 $0D UPOM CONSOLE. 
Z070X. EXIT. 
Z080-VERT-TAB-CDRSOR. 

DISPLAY l-O $08 UPON CONSOLE. 
Z080X. EXIT. 
Z090-CLEAR-SCRZEN . 

DISPLAY 1-0 $0C UPON CONSOLE. 

HOVE ZEROES TO DELAY- VAX. 

PERPOIN ZOOl-DELAY THRU ZOOIX 
UNTIL DELAY-VAR > 200. 
Z090X. EXIT. 
ZIOO-DEL-CHAR. 

DISPLAY 1-0 $7F UPON CONSOLE. 
ZIOOX. EXIT. 
ZllO-ACA. 

DISPLAY 1-0 $11 $3D 

ACA-ADDR£SS (X) ACA-ADDRESS (Y) 
UPON CONSOLE. 
ZUOX. EXIT. 



The code In Chi* copy acabcr cictrt Che 
■creen and dlcplafs the tcaadard 
WESTPORR CONSULTING title on the flmc 
two line* of the screen. Current date and 
active profra* omaa ara alao dlaplayed on 
the f liat llae . 



PERFORM ZOfO-CLEAR-SCREEN THRU Z090X. 

ACCEPT US-DATE nOt DATE. 

MOVE US-YEAR TO SLl-YIAR. 

HOVE US-HON TO SLI-HON. 

HOVE US-UT TO SLI-DAT. 

DISPLAY 1-0 SLl-OATI UPON CONSOLE. 

NOVE 1 TO X. 

HOVI 19 TO T. 

PCUDDt ZllO-ACA TSIU ZUOX. 

DISFLAX 1-0 MS-OlffAVT OPON CONSOLE. 

NOV! 32 TO T. 

PBRFOIH Z110-4CA TBSll ZUOX. 

DISPUY 1-0 US-rVE UPON CONSOLE. 

H07I 2 TO X. 

HOVE 19 TO T, 

PEirORM ZllO-ACA TRIl] ZIIOZ. 

DISPLAY 1-0 US-TITLE UPON CONSOLE. 

01 nDO-Mia RIDCPIKBS PILB-D. 

OS US-PROG PIC X(12). 

OS FILLER PIC Z(0«). 
01 DELAY-VAR PIC 1(2) VALUE ZEROES. 



01 



01 



01 



01 



WS-CONPANY 


PIC X(2S) 


VALUE 


"UESTPORX CONSULTING. INC.". 


US-DATE. 






05 US-YEAR 


PIC X(2]. 




Oi US-HON 


PIC X(2). 




Oi US-DAY 


PIC X(2). 




SLl-DATE. 






OS SLI-HON 


PIC X(2). 




OS FILLER 


PIC X(l) 


VALUE "/'■ 


OS SLl-DAY 


PIC X(2]. 




OS FILLER 


PIC X(l) 


VALUE "/" 


OS SLl-YEAR 


PIC X(2). 




ACA-TABLE. 







OS ACA-VALUES. 

10 FILLER PIC X(lb) 

VALUE "tABCDEPCaiJKLHNO". 

FILLER PIC X(1S) 

VALUE "PQRSIUVUXYZK)-". 

FILLER PIC X(4) VALUE $SF2021Z2. 

FILLER PIC X(13) 

VALUE "JSti-C )•+,-./". 

FILLER PIC X(16) 

VALUE "0123456789: ;<->t". 
OS ACA-ADDRISS REDEPIKES ACA-VALUES 

OCCURS 64 TIMES PIC X( 1 ) . 



10 



10 
10 



to 





OS 


X PIC 9(2) VALUE 


ZEROES. 




OS 


Y PIC 9(2) VALUE 


ZEROES. 


01 


US- 


NANE-ADOR£SS-RECOR0 . 








OS 


US-NAR-PIKST-NANE 


PIC 


X(20). 




OS 


US-NAR-lJiST-NAKE 


PIC 


X(1S). 




OS 


US-NAR-LINEl 


PIC 


X(20). 




OS 


US-NA8-LINE2 


PIC 


X(20). 




OS 


US-NAR-CITTf 


PIC 


X(10). 




OS 


WS-NAR-STATX 


PIC 


X(02). 




OS 


US-HAX-ZIP 


PIC 


X(09). 




OS 


US-MAK-PBOliE 


PIC 


X(10). 




OS 


US-NAR-FLASS. 










10 US-MAK-IXAS 


PIC 


X(01). 






10 US-MA R-PAKTY 


PIC 


X(01). 






10 US-NAK-BOSINESS 


PIC 


X(01). 






10 US-HAR-BILL 


PIC 


X(01). 






10 PILLD 


PIC 


X(05). 




OS 


HS-IIAR-BOE 


PIC 


X(01). 


01 


ov- 


SUITCB PIC X(l) f4LDB 


-0". 




01 


us- 


TITI* PIC X(27) 










VALUE "BAia/ADMRSS NAIKTENANCE 


01 


us- 


RESPONSE PIC X(01). 






01 


ws- 


LAST-NAME PIC X(IS}. 






01 


SAVE-UST PIC Ids). 






01 


SAVI-TEL PIC X(IO). 






01 


us- 


RBC-HO PIC 1(2) VALUE 


0. 


01 


ROf 


-fLAC PIC 1(2) VALDE 


0. 


01 


US- 


NIU-RECORD. 








OS 


US-KU-PIRST-NAHE 


PIC 


1(20). 




OS 


US-NEW- LAST-NAME 


PIC 


X(IS), 




OS 


US-NEU-Liml 


PIC 


X(20). 




OS 


US-NEU-LIirB2 


PIC 


X(20). 




OS 


US-NEU-CITT 


PIC 


X(10). 




OS 


US-NBU-STATE 


PIC 


X(02). 




OS 


US-MBW-ZIP 


PIC 


X(09). 




OS 


US-NIU-PUOME 


PIC 


X(10). 




OS 


US-HEU-PARTT 


PIC 


X(01). 




OS 


US-MEW- BOS I KISS 


PIC 


X(01). 




OS 


US-NEW-BILL 


PIC 


X(01). 




OS 


tfS-NEW-XHAS 


PIC 


X(01). 



IDENTIFICATION DIVISION. 
PROCRAH-ID. LABELS. 
BMVIROfMINT DIVISION. 
INPOr-OUTPnT SECTION. 
PILE-COimU)L. 

SELECT NANE-riLE ASSIGN TO "IHAMDOOOIMT" 
ACCESS IS RAMDOH 
PILE STATVS IS NAKB-STAT. 

SELECT LABElr-OOT ASSIGN TO PRINTER. 
DATA DIVISION. 
FILE SECTION. 
FD NAMB-riLE. 
01 MAMZ-RZC PIC X(126). 
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n> lABEL-OUT. 
01 LABEL-UC 
WIKINC-STOIACE SECTION. 



PIC 1(80). 



01 
01 
01 
01 
01 

01 
01 
01 



US-UC-MO PIC 1(2) VALUE ZEROES. 

TABLE- IKDIX PIC 9(2) VALUE ZEROES. 

SUBl PIC 9(2) VALUE ZEROES. 

SUB2 PIC 9(2) VALUE ZIROES. 

NAHE-WOUt. 

OS NANE-BTTE OCCURS IS TMES PIC X(l). 

I.AST-HAME- ARRAY. 

OS LM-BYTE OCCUIS IS TINES PIC 1(01). 

BOP~PUC PIC Z(l) VALUE *0". 

OOPY "tfHANCDNSTCBL". 

PRINT-ARRAT. 



01 



OS 


PA- 


TABLE OCCURS 


2 TINES. 




10 


PA-riRST-NAME PIC Z(20). 




10 


PA-IAST-NMffi 


PIC X(15). 




10 


PA-LINEl 


PIC E(20). 




10 


PA-LIHE2 


PIC E(20). 




10 


PA-CITY 


PIC EdO). 




10 


PA -STATE 


PIC 1(02). 




10 


PA-ZIP 


PIC E(09). 




10 


riLLER 


PIC E(30). 


vs- 


LABIL-LiaB. 




05 


riLLRR 


PIC X(l) VALUE SPACES. 


0) 


US- 


LBLl. 






10 


WS-LI-CITT 


PIC 1(10). 




10 


riLLSB 


PIC 1(01). 




10 


WS-Ll -STATE 


PIC 1(02). 




10 


riLLSR 


PIC 1(01). 




10 


WS-Ll-ZIP 


PIC Z(09). 




10 


PILI.ER 


PIC 1(11). 


OS 


riLLKR 


PIC 1(09) VALUE SPACES 


OS 


WS- 


mj. 






10 


MS-L2-Cirf 


PIC 1(10). 




10 


FILUR 


PIC 1(01). 




10 


tfS-L2-STATE 


PIC 1(02). 




10 


riLLER 


PIC 1(01). 




10 


WS-L2-ZIP 


PIC 1(09). 




10 


riLlZR 


PIC 1(11). 



ptocznni DIVISION. 

HAIN-Lin. 

OPEN INPVT NAMK-riLE. 

OPEN OUTPUT LABEL-OOT. 

PERFORM AlOO-PROCESS THRD AlOOX 
UKTIL ROP-PUC NOT - "0". 

CLOSE NAKE-PILE. 

CLOSE LABEL-OOT. 

STOP Rl<N. 
AlOO-PROCESS. 

PERFORM A200-READ THRU A200X. 

IP EOP-PLAC NOT - "0" 
CO TO AlOOZ. 

MOVE SPACES TO PRINT-ARRAT. 

MOVE tfS-NAME-ADDRESS-RECORD TO PA-TABLE (1). 

PERFORM A2(K>-READ THII) A200Z. 

IP BOP-PLAC - "0" 

HOVE US-KAKI-AODRISS-RBCORD TO PA-TABLE (2). 

MOVE 1 TO TABLE-INDEX. 

PEXrORM A300- SHRINK- NAME THRU A300X. 

MOVE KAaa-WORK TO WS-LBLl . 

HOVB 2 TO TABLI-INDEX. 

PBRFORH A300-SaiIMK-NAME THXU A300X. 

HOVE NAME-WORX TO US-LBL2. 

PERFORM A400-URITE THRU A400X. 

HOVE PA-LINEl (1) TO WS-LBLl. 

HOVE PA-LINEl (2) TO WS-LBL2 . 

PERFORM A400-URITE TIUUJ A400X. 

HOVE PA-LINE2 (1) TO US-LBLl . 

HOVE PA-LINI2 (2) TO WS-LBL2. 

PERFORM A400-WRITE THXO A400X. 

HOVE SPACES TO WS-LAIBL-LINE. 

HOVE PA-CITY (1) TO WS-Ll-CITY. 

HOVE PA-CITY (2) TO WS-L2-C1TY. 

MOVE PA-STATE (1) TO WS-Ll-STATE. 

MOVE PA-STATE (2) Ti US-L2-STATE. 

MOVE PA-ZIP (1) TO WS-LI-ZIP. 

HOVE PA-ZIP (2) TO US-L2-ZIP. 

PERFORM A400-URITE THRU A400X. 

MOVE SPACES TO US-LABEL-LINE. 

PERFORM A400-URITE THRU A400X 2 TIKES. 



AlOOX. EXIT. 
A200-BEAO. 

READ NAME-FILE INTO US-NAME-ADDRESS-RECORD 
KEY IS WS-REC-HO 
INVALID KEY MOVE "1" TO EOF-FLAC 
CO TO A200X. 

ADD 1 TO WS-RZC-NO. 

If US-NAR-WAS NOT - "Y" 
CO TO A200-R£AD. 

IF WS-NAR-L1NE2 NOT > " " 
CO TO A200-READ. 
A200X. EXIT. 
A300-SHRINK-NAHE. 

HOVE PA-FIRST-NAHC (TABLE- INDEX) TO NAHE-WORJC. 

HOVE 21 TO SUei. 

PERFORH A3tO-SCAN THRU A310X 

UNTIL NAME-BYTE (SUBl) NOT - " " . 

HOVE PA-LAST-NAME (TABLE-INDEX) TO LAST-NAHE-ARRAY . 

ADD 2 TO SUBl. 

HOVE 1 TO SUB2. 

PERFORH A320-H0VE THRU A320X IS TIMES. 
A300X. EXIT. 
A310-SCAN. 

SUBTRACT 1 FROM SUBl. 

IF SUBl - 1 

HOVE "." TO NAHE-BYTE (SUBl), 
A310X. EXIT. 
A320-HOVE. 

HOVE LN-BYTE (SUB2) TO NAME-BYTE (SUBl). 

ADD I TO SUBl . 

ADO 1 TO SUB2. 
A320X. EXIT. 
AAOO-tfRllE. 

URITE LABEL-RIC PROM US-LABEL-LINE. 
A400X. EXIT. 

Bit Bucket 



FROM: 007684 85/08 MJ 

JOHN SACRISON 
P. 0. BOX 18 
llfMACACORI AZ 85640 

Dear Don- 

My subscription to '68' Micro Journal 
has just expired - Please extend it for 
another year. My check for $24.50 is enclosed. 
Also, we've just moved into the Big City to 
take advantage of the shorter commutes and 
higher client density, so please change my 
mailing address as well. My mailing label is 
reproduced above. My new address is: 

John Sacrison 

P. 0. Box 5545 

Glendale, AZ 85312 

Your magazine, always very interesting 
and useful, seems to get better and better as 
I learn more and as my experience grows. As 
many of us do, I use 6809 systems at home by 
choice, and MS-DOS machines in most clients' 
offices out of necessity. After a couple of 
years' experience with PC clones and nearly 
five with 68XX machines, I can safely say that 
as long as you keep supplying the kind of hard 
information and editorial content -you have 
been up to now, you'll have a lifetime 
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subscriber. Thank heaven there's someone out 
there who has the common sense not to ruin 
an excellent product simply so the Marketing 
types have something "New" to sell! 

A consideration you might want to 
pass along to your readers who are 
considering the purchase of one of those 
"other" machines: The IBM version itself is 
SLOW! If they absolutely must have the peace 
of mind that only the massive support 
provided by IBM can provide, that's a 
perfectly valid reason to buy one - go ahead> 
But an unassisted (no co-processor) Big Blue 
PC or XT seems to run most applications not 
terribly much faster than a CoCo, and a 2MH2 
SS-50 system offers a significant speed 
advantage. I would strongly advise that they 
purchase instead on of the weU-made "clones" 
that advertise a higher speed capability. At 
the very least, they should get out and TRY 



the machine they're considering, preferably 
with software similar to what they expect to 
use on it. They might be disappointed! 

I enjoyed the August issue very 
much, especially "The Bit Bucket." It seems 
that a lot of people have looked around and 
with some surprise discovered that the demise 
of the 68XX machines has been greatly 
exaggerated! I can't help but feel that a 
stronger marketing push by Motorola could 
have given things a much-deserved boost in 
the marketplace. As it is, Tandy has probably 
spent more on marketing the Color Computers 
than Motorola has on the entire 68XX Series 
(feels like it anyway). Now if only the rumored 
"new" Tandy machine has an SS-50 slot for 
expansion. . . ! Keep up the good work. 




rohn Sacrison, C.P.L, 



Disk Sector Interleave 



Does your FLEX ayacea read fllea as fast as it should? 
I've found thst a lack of underacanding of disk Interleave 
has resulted In nany FLEX aystens reading disk files at 
leaa than half of the potential FLEX read speed. The 
first half of thla article should be of interest to all 
FLEX uaera. I will present a aiaple teat that can be 
conpleted in 13 oinutea that will reveal whether your FLEX 
ayatea ia reading properly. If not, I ulll suggest how to 
fix the problea. The second half ia for the technical 
people who are Interested in what interleave REALLY doea 
and the pitfalls of alaunderstanding what it accospUahea. 

INTERLEAVE TEST 

To aeaeure your FLEX read apaed wa auat uaa a 'standard 
benchturk' ao that we are all conparing the aaaa aeaaure' 
nent. The following taat has been tried on nuaarous FLEX 
ay^teafi and taa provided conaiatant reaults. Hore 
iaportsnt, it hss ensbled ae to speed up so«e of those 
sjraCeaa by a factor of 2-3, Start by aaking a 100 aector 
text file on a acratch diak. It won't really aatter what 
is tn the file, but for conaiatency you can uae the 
following TSC BASIC progrsa to craata the file for you: 

10 REH INTERLEAVE TEST 

20 OPEN NEW "T.TXT' AS 1 

30 FOR I-l TO 928 

40 PRINT ♦1,"TMIS IS A TEST OF THE DISK" 

SO NEXT t 

60 CLOSE 1 

70 END 

For other BASICS you Bay have to adjuat Une 30 ao the 
file is 100 aectora long. Now that the file la prepared, 
take another disk and foraat it with NEUDISK, INIT, or 
what have you. You auat aake a new, clean dlak ao the 
flic will atart at tha flrat track. Copy your teat ftla 
T.TXT onto the freahly foraatted disk snd you sre ready 
to bc{[in the aeaaureaenta. 

We are going to uae the LIST coaaand to read the file 
iato a bit bucket. LIST auat not take aore than a aecond 
to be loaded in or it wlU dlatort your reaulta. If LIST 
la near the laalde of your ayatea dlak, you aay wsot to 
copy LIST onto another diak for uae aa a tcaporary ayatea 
diak. The co^uod we will uaa t»: 



LIST T 9999 

Tine how long it takes froa preaaing RETURN until the 
FLEX proapt returna. The tlae oeaaured will be about 5- 
30 aecond a. The 'ideal' tlae to read a 100 sector file is 
around 10 aeconda for a 1 HHZ CPU and i aeconda for a 2 
HHZ CPU. If you are within 30'«0 percent of the ideal 
apeed, you have little to worry about. If you are 200-300 
percent of tha ideal apeed, you aay have an interleave 
problea, 

EXAH7LES OF PROBLEMS 

There are tuny reaaona that FLEX ayateaa often 'fail' the 
above teat. A few exaaplea: 

1. five years sgo, when 1 first forastted 8 inch dlaka 
with ay F&D INlT coamand, I found they were slow coapared 
to the 3 inch dlaka I made with TSC NEWDISK. 1 apent a 
long tlae learning about diak Interleave and dlacovered 
F&D hadn't uaed ANY interleave on their dlaka, (i.e. the 
aectora were stored in nuacrtcal order). 

2. About 4 yeara ago ay friend Bruno Puglla reaarked that 
ay F&D I/O diak controller always aeeaed faater than hla 
SUTP DHAP-1 controller. One day, when 1 read a dlak 
forastted by hla, wa noticed it read aa alow on ay 
coaputer aa hia. He auddenly realized the problea was the 
NEWDISK coaasnd thst caae with hia SWfP FLEX. SWTP had 
stsrted selling 2 HHZ coaputera. Without telling anyone, 
they aodifiad their NEWDISK interleave for the higher 
apeed. Everyone who buya SWTP PLKX aad uaea It on a 1 KHZ 
ayatea will fiad their coaputer reada ssIloowwUyyl 

3. Several well intentloned people (auch aa Willlaa Hart) 
caae up with a "Software Ready Check" to check if a diak 
la available before acceaaing it. What they did was uae 
aoftware to check for an index pulae before aelecting a 
drive. Thla worked for Ita ioteaded purpoae, but created 
a read apeed problea. Unknown to tbe progra^aera, FLXX 
calls the select routine ss part of the read cona<nd. 
Thla defeata all aector interleave aloce the disk auat 
aake a whole revolution to produce an index pulse before 
each sector ia read. 

&. Though not really a 'failure' of tha teat, aaoy PLBX 
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uaera have upgraded chelr CPU Co 2 HHZ buc dldit'c upgrade 
chelr Incerleave ac Che aaae cla«. Thla reaulca In ceac 
claea of 10-12 aeconda which can be alooac halved wlch 
Che correct Incerleave. 

HOW TO FIX IT 

The flrsc acep in Crying to aolve an Incerleave problea la 
aeelng If aoaeone ulch a ayacea like youra haa already 
aolved Che problea! A few calla around Co FLEX uaera aay 
turn up a NEWDISK, INIT. or alallar prograa chac haa Che 
correcc Incerleave for your ayatea, A call Co Che auppller 
of your FLEX aay be frulcful, perhapa chey read chla 
ardcle coo! 

A aecond possibility la you aay be able Co uae the INlT 
prograa by Joe Nardo and ayaelf. The prograa haa been 
expanded Co Include aeveral SS-30/S0 concrollera aa well 
aa double denalty. The Interleave cables Included ahould 
be wlchln 30 percenc of Che 'ideal' apeed for your ayacea; 
adding your own table to Che source should bring you even 
closer CO aaxlaua speed for your ayacea. The prograa la 
Included In Che GIVEAWAY package which la free If you aend 
ae 4 five Inch dlaka (or 2 elghca) with » acaaped recurn 
dlak envelope. If you don'c have any aechod of prlnclng 
Che docuaent aclon files, lee oe know and I'll Include Che 
30-40 pages of phococoples In your envelope. 

rinslly. If you have to go It alone, I can only give you a 
general outline of what needa to be done. There are ao 
aany veralona of NEWDISK. there la no way I can cell you 
exacdy what bytca Co change. 

a. rind the Interleave tablea. They wtxl ahow up aa hex 
codea froa $01 to the nuaber of aectors on a crsck and 
will scand ouC In a dla-aaaeably aa odd Inacructlona . 
Uaually there will be aore citan one cable Co accounc for 
dlfferenc denalclea, aldea, ecc. 

b. Find Che cable you are ualng. It will atarc with $01 
and contain all the aeccora you have on a crack In whac 
appeara Co be RANOOH ORDER, For exaaple If you uae SSSD 
five Inch drlvea you have cen aeccora per crack, che table 
you are looking for will be 10 bytea long. It aay be 
followed with $00, or Che start of another cable. 

c. Replace Che old cable using a cable derived froa 
reading Che reac of chla ardcle. 

d. Repeat Che enclre apeed ceac. If the apeed la the 
aaae, you aay have altered Che wrong cable. If Che 
prograa crashes, bs aura you didn't alter Che lengch of 
Che cable (perhaps you overwroce Che null st the end). 

WHY INTERLEAVE IS NEKOEO 

Interleave, as It spplles to FLEX, Is Che order chac Che 
aeccora are recorded on Che dlak. The TSC aanual 
acndona chla, buC doean'c diacuse Ic In detail. I''ve found 
few people reslly understand the operation of how FLEX 
reads a aector, aa a reaulc aany ayaceas are noc 
Incerleaved corrscdy. I think, by using soae sctual 
aeaaursasnca, I'll be able to take aoae of the aysteiy out 
of disk foraatttnl. 

The resson we nssd Interleave la that FLEX can't proceaa 
daca a* faac aa che dlak drive la capable of reading It. 
I'll atart by ahowlng what happsna without Incerleave. 
Lec'a use a ten aactor dlak for our exaaplea. The aectora 
would be ordered: 

V V 

123&i6;89A 

When FLEX finished proceaalng sector I, the dlek would 
hsve rotsted alaoat 2/i a revolution. When we are ready 
to read aector 2, aector 5 would be passing over the 
head. As a reault ■• would have to wait aa the dlak aakaa 
another 3/3 reveludon Co bring aactor 2 under che head. 
We have Juac dlacoverad our flrsc rule of Interleave: U 
you have che wrong aeccor order che dlak will be read at 



approxlaacely I aeccor per revolution. To put that In 
perspective a five Inch drive rocacea In 200 aaec ao a 100 
aector file will take 20 aeconda Co read (and flunk che 
above teaci). 

Why doea FLEX cake 2/3 revolution to proceaa a aeccor In 
the above exaaple? FLEX haa an elegant File Hanager which 
doea a lot of work when proceaalng a aector. When wrldng 
a utility, you aay uae a read routine alallar to thla: 



LOOP 



LOX fFCB 
JSR FHS 
BNE ERROR 
LOX POtNTR 
ST A A O.X 
INX 

STX POINTR 
CPX HEMEND 
BNE LOOP 



CALL FILE MANAGER 



STORE CHARACTER 



update pointer 
Overflow? 



This looka like a fast loop with only nine Inatructlone. 
Unf o r c una cely , the aubroutlne FHS la about 43 
Inatructlona long. The FHS auac aave a polncer, check the 
function byte, check che acdvlcy acacua, check for TAB 
expanalon, read a characcer froa che FCB, buop a councer, 
check for three control charactera, aec aoae ntacua, 
reatore a pointer, and return. All thla auac be done 232 
tlaaa per aector I You can aee why the aoftware overhead 
for proceaalng a aector la about 60 alUlseconde. 

You aay have noticed 1 haven't dlacuaaed hardware ao farl 
The 60 alUlaeconda of CPU tlae la Independent of the of 
else of the dlak, density, aides, etc. The slowest disks 
are 3 Inch SSSD which aa aendoned above read 10 aeccora 
ac 3 rpa (20 aaec per aector). The faateat popular dlaka 
are 3 Inch wlncheatera which read 32 aeccora ac 60 rpa 
(.3 asac per aeccor). Our nexc rule of Incerleave: The 
disks are alwaya fascer Chan che FLEX File Hanager. A 
wlnchascer disk SUOULD only be slightly tsster (60».3) 
then s floppy (60*20) when resdlng a file. Thoae who aay 
their wlncheatera are 3-* tlaea faater than their 
floppies (David Cravea 68 HJ Oct 82) ahould apend aoae 
tlae fixing the Interleave on their floppleel Note chac 
che wlncheater rotates In 16.6 HSEC, so che drive aakes s 
couple of revoluclons while FLEX procesaea a aector. 

CALCULATING INTERLEAVE 

The nechod FLEX uaea to lapleaent Incerleave is very 
flexible. Unlike aoae sysceas chst coapuce Incerleave when 
reading (CP/H), FLEX coaputea Interleave when fornsttlng. 
FLEX coaputera can read dlaka regardleaa of the Inter- 
leave, alowly perhapa, but aucceaafuUy. Thla le why aany 
FLEX uaera do not reallte ttiey are ualng the wrong 
Interleave. 

The aectora on a FLEX disk are written In non-aequentlal 
order. The TSC NCWDISK prograa I uaed In t980 formatted 
SSSD dlaka with the following order: 



V— 



133792468A 



While processing ssctor I In 60 asec of CPU tlae the disk 
will advance to aactor 9. We will be ready to read aactor 
2 when It paasea under the head. If you follow around the 
table, you will aee we can read two aectora per 
revolution (one odd nuaber and one even nuaber). This 
disk win reed twice aa faat sa a dlak foraatted In 
aequentlel order. The above table la said to have an 
Interleave of five, alnce aector 2 iB five ssctors after 
aector 1 (aequentlel order Is called incerleeve of one). 
Another rule: Incerleave nuaber la che alnlaua counc froa 
any ssccor Co the next nuaber sector. Shsrp eyed resdera 
aay notice the above table haa a count of alx froa aector 
2 to aactor 3. Soaetlaca It la laposslble to schievc che 
desired Incerleeve for eveiy aeccor. 

Looking back, we noticed that when the aystea waa ready 
for sector 2 the head wee still one aeccor away. Let'a 
make a new table with In Interleave of four which aay read 
iaater. I ussd Co aske up tsbles with pencil end psper 
ualng the following aechod 
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1 2 3 


4 


5 


6 


7 8 9 
















2 










2 






1 4 




2 






1 4 




2 




5 3 


1 6 t, 




2 




5 3 


1 6 4 


9 


2 


7 


5 A 3 



sake cen columna 
first sector Is 1 
count over 4 
count over 4 
count around 4 
count over 4 
oops, around 3 
Clnlah counting 4 



As you can see, when we wanted to place sector 6 the 
dealred cell was tilled. The only choice Is to Insert an 
additional count. Sone Interleaves cobc out 'perfect' such 
as three: 

I852963A74 

Double sided double density tables are not difficult to 
create. They can be thought of aa (wo partsi the first 
aide looks just like what we've seen, and the aecond aide 
Is the aane table over again with the side alze added to 
It, The following table la for DSDD with 18 sectors per 
side and an Interleave factor of four 

01 OA 06 or 02 08 07 10 03 first side 

OC 08 11 04 CD 09 12 03 OE first aide 

13 IC 18 21 14 ID 19 22 13 second aide 

IE lA 23 16 IF 18 24 17 20 aecond side 

I've found the beat way to find the ideal Interleave la by 
trial and error. There are ao nany varlablea to consider 
that coaputatlon only puts you In the ball parki Some of 
the coapllcatlona are: 

1. Placement of Che laat aector. An interleave table that 
looks 'perfect' Bay not allow enough cine between the last 
sector snd sector 1 of the next track. This will waste s 
revolution for each track step. This could be solved with 
track CO track skew, but I haven't aeen akew in any FLEX 
formatting programs. 

2. Headload delay. Some drivers (auch aa che original TSC) 
sec the head load bit on the read command. The 
controller then playa dead for 10 msec before reading, 
perhaps long enough Co miss a sector. 

3. Application software delays. Some programs w)Jl have 
more processing to do between sectors, causing the disk 
to mske a whole revolution par sector. I've found that 
LIST is a good test, if LIST works then ail buffered 
programa will work. It is concelvsble to select an 
interleave Co match the application. I:IP computer sanuala 
suggest different interleave for boot disks, progrsa 
disks, data disks, etc. 

4. Sector format variations. The gap characters between 
each sector vary depending on density and Che whims of 
the person who wrote the formatter. You can squeeze 
extra sectors on a track by scrimping on the gsp sizes. 
There are alao varlatlona la how long a controller takes 
to lock onto the eector header. 

3. CPU clock apeed. Thia la the main factor tbat controls 
the fastest interleave chat will work. A 2 HHZ CPU wUl 
accept an interleave number of alightly over half that of 
a 1 HHZ CPU. 

HEXe'S THE lEEF 

Enough theory, here are some actual speed tests. The 
testa were run on various interleaves using a 6809 at 1 
and 2 HHZ. The drives used in the tests were 

four sided 3 inch 180 tracka (SA-604) 
elogla aided S inch 77 tracks (SA-800) 
double aided 3 inch SO tracks (IM 100-4) 
single sided 3 inch 33 trscks (SA-400) 
CPU INTER- 

DRIVI MHZ LEAVE DENSITY SIDES SBC 



8 


INCH 


SS 




8 


INCH 


SS 




8 


INCH 


SS 




8 


INCH 


SS 






INCH 


DS 






INCH 


DS 






INCH 


DS 






INCH 


DS 






INCH 


DS 






INCH 


DS 






INCH 


DS 


1 



3 INCH SS 2 

3 INCH SS 2 

3 INCH SS 2 

3 INCH SS 1 

3 INCH SS 1 





6 * 




7 




11 




11 




b 




6 * 




8 e 




9 e 




12 




12 




12 




8 t 




10 




12 f 




22 1 




12 1 



lAMDISK 2 

HINCHKSTEK 2 



N/A 
63 



H/A 
N/A 



N/A 
4 



6 • 
3 « 



* Note that the apeed of the following drives were 
within 20X of each other:: 

1. BAMDISK written in flexable 6800 code. 

2. Winchester using formatter and driver by Dsve Grsves 
ami Robert Zeff. 

3. Old 8 inch single density single sided. 

4. New 3 Inch single density double sided. 

9 Note that double aided wlli BometLses be faster due to 
fewer track to track steps. 

f Note thst using the proper Interlesve resulted In 8 
eeconda for 2 HHZ and 12 aeconda for 1 HHZ. Using the 
wrong interleave resulted In 12 and 22 aeconda. 

RELATED SUBJECTS 

So far we have discussed the effect of Interleave on FLEX 
read speed; whsc about its effect on writs speed? 
Actually there is very little change in write speed no 
mscter how you formst a disk. FLEX must make three 
passes over each sector that it's writing! First FLEX 
reada the sector to find the link to the next available 
sector. Second FLEX writes the new sector with the old 
link in the first two bytes. Third FLEX does an optional 
VERIFY of the sector. This requires two complete revo" 
lutions plus a partial revolution to reach the next 
sector. This csn be reduced 40X by turning off VERIFY. 
You can see thst the rocstlonol speed controls the write 
speed which Is why Winchesters write much fsster than 
floppies. 

Seek speed i» another factor that ia hardware dependent. 
The aeek epeed Is selected by software, but mat be no 
faster thsn the drive will ellow. Five inch drives very 
over s wide rsnge, from three Co forty msec per step. The 
seek time is ususlly small compared to the read or write 
tlaa, but geta a lot of attention since it is audlblcl Tha 
drive aounda faater, therefore everyooe aaaumes It is 
faster. le ewsre that there isn't any feedback from the 
drive SS to when It hsa completed a atep. Two of my 
friends inaiated that the 80 track drives they purcbssed 
ware 'HUCM FASTER' than the 40 track drlvea they were 
ueed to] Oaly after I had them run ay apeed teat did they 
realize it was all in the ears! Connecting a drive that Is 
capable of a ahorter aeek time doea nothing unless the 
softwsre is changed to atep faster. FLEX rsndom files 
require a lot of aeeklng, thua Kill be faster on a drive 
with a short aeek time. 

CONCLUSION 

I hope I've provided aome inaighc into the aubjacc of 
Interleave and how it affects FL£X speed, Tva said quite 
a bit, there ia atill more information I've Imft out] 1 
welcome »a>f queatioaa on this or any other topic lamlvlng 
FL8X. 

Leo Taylor 

109 IMa Brook Road 

HaMian, Cono. 06314 
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ABOUT TlMtl 

Well, here It la about 2 days since Che close of NCC 
Chicago 19BS. Larry la back fron che show and 1 an 
delighted with the reception OUK folks stacking up. 
After all, for the past few years the fruit and UB's have 
been nipping us pretty hard. But at the 'crowo jewel' of 
computer shows, our folks case out on topi CIMIX, 
Mlcroware and Smoke Signal Broadcasting stood toe to toe 
vlth the biggies, and cane out winners) 

Yea, you read it right. Winners. Spelled with a 
capital U. And It all revolved about the Hocorola bBOOO 
fsBliy of microcomputer devices. 

When I and a lot of you first started out In this 
thing, you reaeaber. In those pre-ooat everything days, as 
awed as we were, at least 1, never envisioned the power 
of computing that was to be In Just a few short years. 
But It la here in the 68000 series, now. And we have not 
even really begin to scratch the aurface. 

The time span has actually been so short that 1 can 
clearly remember the giant steps aa they fell, each louder 
than the previous. When 1 first began to program and 
build with that lovely 6B00 there was not one, no not one 
editor (yea, even before the excellent TSC Editor) that 
was avellable for It. Then SWTPC made available on tape 
(paper first, later magnetic) an editor (of Motorola 
origin I believe) and an assembler to put the whole mesa 
together. Before that we punched It In hex by hand, byte 
by byte. Which waa better than the othera, as moat of 
them had to punch It In by hand. In octal (ughll), bit by 
bit. Try that aome time you non^lovers of HLLa, a group 
I have since gladly joined. 

The editor was really great. To use It you didn't 
have to worry about looking for your errors on the CRT 
screen. Host didn't have a CRT screen. Some had (the 
lucky ones) the clanking Model 33 Teletype, and a paper 
screen. Others used all aorta of devices, from the new 
and quite modern modified TV typewriter (SUTPC, slower 
than a snail In cement, but cheap to build and sure saved 
on paper) to various military aurplua ASCII teletype 
■achlnea, and other strange and Baddeoing devices. But 
If you did happen to have aoa« aort of printout device, it 
didn't matter, the editor waa neither line or ecreen 
orientated. Fact ie wae wasn't anything orientated. 
That is except your own grey matter. For eveiything waa 
kept in your head, and a hidden RAH buffer, until you 
called for a printout, And uaing paper at 110 baud or 
leee, printouts were not called for often. 

Mere la roughly how it worked. You typed (I am going 
to get a lot of letters on this becsuae 1 do not have the 
documentation any longer and am going on a foggy memory) 
a character, I believe T to get to the top of the page 
(buffer). Then you started to input your text (aoatly 
machine hex source code - you wrote moat of your own 
stuff) inputting what you hoped wae largely error free. 
Mine never wae, but I heard tales, which I took with both 
awe and a grain of salt, of those who ueed the thing sad 
never made aietakee. Uhen they celled for a printout, 
they had to aeke no corrections , 1 still daesliy those 
etoriea with the tooth fairy. 

Now for moet of ue mortal programmere, it was not 
quite the eeae, we aede aiscskes, And we reslly paid 
dearly for those lapaea of mental and finger dexterity. 
You eee, when you reentered the editor, on cape, then 
your text file, on tape, the coffee wae not only done that 
you put on when the tape firet atarted running (flret 
time - remember, before it got dowo to the laat few bytea 
and then bombed) but it wae ail drunkup by the time you 
had your program or data finally loaded wlchouc a Juap- 
ouc CO Che aonitor, which dinged the bell or aomethlng 
and then announced in a matter of fact way that eoaaching 



had gone belly-up (hardly ever the eaae thing twice in a 
row) and you started all over from scratch. That la 
after you rewound the tape. Now if you were real lucky 
it was only a couple of aore triea with the tape to get 
Che source or text loaded. For a program of eome iO or 
50 llnea (a biggie in those daya as onst had only a <bK 
machine) this whole process could tske sn hour or so, if 
you were lucky. I hsve seen whole nights psss by snd the 
lucky comblnstion wss still eluding. 

Flnslly you were bsck in business (prsyiog, "Plesse 
Lord, plesse don't let the lights fllckerll). Once 
running sgsln you then input the "f, or something, snd 
the editor wss then pointing st the first chsrscter, on 
the first line of whstever you hsd losded. Hsving looked 
St you printout you see thst in the third word over, 
which wss ssy 'the', you hsd input it 'tht' or some other 
nonsense. Now the 't' thst should hsve been sn 'e' wss, 
by counting over from the first chsrscter, the 12th 
chsrscter (reaember spscee sre chsrscters siso). So you 
input "V or ">" or "L" (sll upper csee, only the very rich 
hsd lower) snd "12". This plsced the pointer to the 
offending chsrscter, you hoped. Then you input sn escspe 
eequence of some sort snd then input the proper 
chsrscter. Now there wss snother error s few lines down 
snd so msny chsrscters in. So you input "D" snd the 
number of lines down (delimited by the $0D - C/R). The 
"D" aesnt 'down' I believe snd of course the now fsnillsr 
over so asny chsrscters over snd the escspe sequence 
sgsln. Boy, you tslk sbout funt Hsybe the 'V snd "-" 
sent you up snd down line numbers, 1 csn't remeaber, snd 
reslly don't wsnt to. There were asny other 'hidden' 
editing festures, none of which I desire to recsll sny 
longer. The whole point being, it wss s marvel st the 
tlae, but looking bsck now it wsa for the pits. 

Then csme the TSC Editor) To me thst wss s 
milestone of progress exceeding the stoalc boab. Also 
svsilsble from TSC st sbout the ssme tlae wss their 
ssseabler. Esch wss on tspe, or you could order Just 
the printed source listing snd enter it in in hex, by 
hsnd. 1 did. And it wss essentially the aame aa what 
you buy today. Ooly today you pay a whole heap more and 
do not get that beautiful commented source listing. I 
wonder how msny 6BXX progrsaaers cut their progrs^ing 
teeth by studying those wonderful source listings. I did. 
t csn tell who some were when 1 receive sn sseeabler 
source commented, ss soon ss 1 see: "INX BUHP THE 
POINTER" 1 know where you csoe froa. Thsnks TSC. Thst 
wss one glsnt step forwsrd. 

Then Ister SWTPC (who supported TSC softwsre 
completely st the tlae) offered s version thst losded both 
tbe editor snd sssembler froa one tspe run. This aeent 
thst you could bounce froa Che editor, once you were 
sstisfled with your source code, snd go (^madlataly to the 

sseembler, without wsiting, snd wsiting snd Then li 

(snd noraslly when the ssseabler bombed your error(e)) you 
could Jump right bsck into the editor snd mske the 
correction(a) (hopefully). It wss cslled CoRes sad was s 
Jewel. Sold for the princely sum of $B.O0, if I reaeaber 
correctly. I believe it wes the SWTPC ides to sttempt to 
mske things sffordsble for the beginner, thst hsd s lot 
to do with our survival. Goeh, what happened? 

Hileatonea came faeter and faster. The twin cassstte 
cape deck froa SWTPC, Che faac (1200 baud) cassecce froa 
PERCOH and an even beccer cape ayscem froa JPC Produces. 
It wss rsining asnns, snd I wss going nuts trying to keep 
up with progress. Then s super milestone rolled in - 
floppy disk. Mine wse the first one shipped by SUTPC. It 
hsd the origlnsl drive in it thst hsd been the prototype. 
I uncrsted it sctuslly shaking, for I knew that at laet 1 
had the UAL THIIKI What had taken twenty ainutea before 
(loading BASIC) would now be reduced to eeconde (actually 
about 20 seconds). Nothing, 1 mesn noching could ever 
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exceed that. 340 leccore, 33 track* on one aide waa 
like a boxcar load of tapea. 

1 fired It up, and while alcclng In awe running "Dlit" 
over and over again, the light* flickered. BLAM, It would 
not boot. I called SWTPC end Dan Meyer put a 'ruah' 
aecond dlak on the way, but Hlckey (I had called, he had 
gotten out of bed and waa on the way over when It died) 
and I decided Co try to take the code apart and aee what 
we had. Wlthtn a couple of houra he had figured out the 
'boot' function and we wrote one to tape. it waa 
■urdered while the head waa altclng back on the 'hone' 
poaltlon, right over the boot track. 1 learned about 
leaving dlak doora cloaed, with that one. Tor the next 
couple daya we booted It with a abort 7i or ao byte 
prograa on tape and then enjoyed the luxury of dlak 
coaputlng. To ae the dlak ayatea waa the aecond great 
■ ileecone, right after the 680U. So we had oajor and 
■Inor Bileetonea, each one a aarvel and aeealngly 
unauraoun cable, forever. 

I gueaa by thla tiae you are oonderlng what all this 
atuff haa to do with NCC '%b and our group. Well, we 
have coae to another alleatone. The Motorola 68020. 
But flrat let ae cell you a llcde about what happened ac 
NCC, aa I aa told by eoae othera who were actually there. 
1 atayed hoae thta year alndlng the atore. 




Flrat, to keep out of hot water 1 aa going Co go 
alpha, ao CUUX coaea ilrat. CMIX waa ahowtng their new 
and rOMIKFUL 68020 aegabyte, aega-plua apeed ayatea, 
running both OS-9 68K (1 Cold you so. even when they were 
denying It) and UnlFLKX VH. Now It haa only been 
coapleced and running a (ew weeka, buc even ac chl* acage 
ic la abouc 30 Co 2U0 tlaea faater than a 6609 doing the 
aaae function. While the average 68008 la aoaawhat 
alower than aany 6HU9 functlona, the 020 veralon la a 
apeedlng bullet. Ic la ao faac chac aoaetlaea you chink 
iC dldn'c do anything. With both OS-9 end UnirUKX you 
gets your choice. And like 1 aald a few aontha back: a 
level one 68K ain't exactly the aaae aa a level one 6809, 
be aware. The offahoot of all thla power being at NCC 
waa that the CIMIX booth waa one of. If not the aoat 
active booth ei the ahow, ao I aa told. It wea told ae 
that aoaa 'big whaela' froa aoae of the real big 'hot 
ahot' coaputer aakera, atood around, Jawa drooped, 
wondering where thla CIHIX outfit had popped up froa. 1 
do not believe, froa what 1 hear, that there la another 
68(anythlng) that can acand toe-to-toe with the ClHlX 020 
ayatea. It hae It alll And now the aaae thing In an 
econoay alngle board coaputer. Wowl For you aaart onea 
wbo have held off purchaalng a bSXXX alngla board 
coaputar, your patience la aoon (reel aoon) to be 
rewarded. Tha CIHIX board ia so far a^vuiccd atmr tbc 
ochar 68IXX alnsla board ctmpnttrt (codaca), thare la oo 
c«aparlaon. Let the turtlei bewarel 

Not to be outahone, Mlcroware waa dlaplaylng their 
OS-9 ayaceaa and ocher hardware and Hlcrouare aofcware. 
Theira waa alao an acdvc end buay booth. 




An lapreaelve deaonatraclon et Che Hlcroware booth 
waa the Hlcroboerda Model 32, running OS-9 6BK, froa one 
of Japana larger electronic* aanufacturera. Thla ayatea 
la a ahared reaource ayatea, running con-current Unix Sya 
i and OS-9 68K. It'a prlaarlly a developaent ayatea. The 
hard dlak and other ayatea reaourcea are ahared by both. 
A Hilar ayatea wea alao In the Mlcroware booth but we 
never aaw It (Ired up. Although I waa told It waa 
deaonatrated occa*lon*lly. Al*o there were *o aany 
ahared CRTe that la waa difficult to deteraine what waa 
hooked to what. 

Alao running very lapreaalvc color graphlca waa the 
new ayatea frua Hlcroware and Hitachi (aee preaa relaaaa. 
Bit Bucket). The Software waa • Joint effort of Craphlca 
Software Syaceae (CSS) and Hlcroware. Soae Induacry 
experc* **y ch*c chl* produce deelgn 1* f**c becoae the 
Induetry *t*nd*rd for Internetlonal high-level graphlca. 
Thla alone atteat to the aaturlty of Mlcroware producta. 

The acceptance that aany quality hardware 
aanufacturera have given to OS-9, la a tribute to the 
reapect and attention Hlcroware haa devoted to Ita 
products, cuatoaera and uaera, aaall and l^rge, over the 
yeara. 1 have watched, froa an edvantageoua view point, 
all thoae yeara. I believe one thing that haa been a 
difference between aucceaa and fallurea In our coaminlty 
group haa been not forsectlsg our beglnnlnga. Thoae 
little "bobby' typea that aoae aneered at yeaterdey, *re 
the guy* who *re now buying the big bucka eoftware and 
hardware that haa awltched the fortunea of aoae of our 
folka. Soae of the othera never could get It Into their 
bualncaa heada that 'hobby typea' develope Into 'big bucka 
typea'. I know hundredal Mlcroware haa apparently not 
forgotten It'a beglnnlnga (KT-68, etc) and today la a 
aajor force In the quaJltj coaputer world. It aura la 
nice to know 'world claaa' foika. 

Alao I want to coapllaent Mlcroware on the qualltj of 
their brochurea, apec aheeta and other haodouta at the 
ahow. They aay qualttj plua all the way. Evan their all 
Japaneae atuff waa 'print art'. I aa lapreaacd, ao auch 
ao that I gueaa I will have to atart aaylng Mr. Kaplan. 
Serloualy, they were quite eye catching, even aore ao when 
you read tha loog llat of their worldwide cllenta. A (eod 
rapataclon la to be envied. 

Saoke Signal Broadcaatlng (SSB) wa* well repreaented 
at the '85 NCC. They were proudly ahewlng their VAK/68K 
ayataaa to thoae wt>o ware looking for a 'cloaa' UNIX Like 
ayatea. For the price the SSB ayatea la hard to beat. 
And with either OS-9 or R£CUUIS on the SSB hardware, you 
have a choice of both worlda. Needleaa to say, but SSB 
la aa haa been their practice In tha peat - "giving ua a 
choice". Me, I like that. For thoae wanting a real 
cloaa look-a-llke for UNIX, they aeca to have It, In two 
delightful flavora. SSB la anotbar one of thoae that haa 
kept an ear cocked towarda thalr uaera. 
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So there you have it, a abort report on oor folka at 
the preaiere coaputer show - 'ti3 NCC. I aa proud of the 
fine showing by thea. They have proven the old adage 
•bout Boueetrapa and auch. They hung In there, did thatr 
thing, didn't forget where they cane fro«, and It la all 
starting to pay off. Loyalty 1« a two way street. Too 
nany knowledgeable folXs have already told oe so. in 83 
«* took top hUUiiil 

So, that brings ae to nlleatone nuaber aoaethlng or 
another. But It la a biggie. The 66000, and «epeclaLly 
the 6B020. If ever Hotorola did anything really right, 
thla Is It. 

Over the years I have not been too kind with 
Hotorola. fiut 1 called it as 1 aaw It, and at tines I 
becaae so vexed 1 f«lt It unfair to you, i^ readers, to 
hold back. Ah a reaalt I gueas you could aay that we 
never did really aake It, Motorola and I. That hss 
surprised sons folks. 1 have had officers snd stsff of 
other Bagazlnea expreaa to me amaceBent that I continued 
to devote ay entire effort to Hotorola products. This 
while soae of our coapetltors (stsrt-up 6BXX Bagaclnea) 
were having a aajor portion of their articles written by 
Hotorola eaployees. It made no difference to oe. I felt 
It better that I had no obligation to HotoroJs, Fact la, 
we never even asked Hotorols to advertise In our pagea, 
despite our totsl support for devices devoted to their 
products. We never received any Induceaent froa 
Hotorola, in any fom, to do what we have done (we receive 
device apec aheetai and PR releaaea only). We did not 
and do not owe thea anything. Nor they us. Ue do it 
becauae you. our readers and aupporters, ssw fit to use 
their products. So, we were snd are keeping our pledge, 
froa day one, supporting you. However, thst is not to 
ssy thst we would not like aoae of their advertising 
bucka, but it would not change our editorial policy one 
bit (no pun intended). I atlU aa going to aqueal loud ti 
I think they, or anyone elme, leta ua down, or stick it to 
ua. I didn't like the flakey 6609 bit a few yeara back 
snd 1 do not think they supported the 6600 snd 6609 aa 
well aa they could or ahould have. I don't beJleve thst 
the Z60 snd 6502 should have aade it to where they did) 
But then aaybe 1 liked then (6BXX) better than Hotorola 
<llii. 

But now 1 gotta hand It to thea. lt)ey have really 
done IC right with the aore recent 66XXX offeringa. 
Especially the 66010 and 6B020 CPU devices. I hsv* no 
doubt but what these sre the finest alcrocoaputers 
(alcro?) svailable, anywhere, froa anyonel Ton are Co ba 
CORgratuXsCcd Motorola* fow ggjn pet it All together on 
this aarlos. and wm thank yml 

Anyway, to you Motorola for aaklng it, snd to you 
GIMIX, SSS, Microwsre snd all you others using it, we aay 
IL&TimiSl You are ail wlnnera. 
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Daar Mr. Williaasi 

Thought you sight b« lnt*r*at«d In bow wa'r* utlng our CKX 
III Blcrocoaputar httt* at St. Jostph'e Collvg*. 

we arv now In our third y«ar ualn^ thl« aachinv for a 
variety of purpoeva within the Coaputer Science and ftuainess 
curricula at the College. Our ayates currently aupporta up 
to H uaera, with 9-12 teralnala being connected to the 
ayates at any one tise. we hav« 3fl4R of AAM in th« ayateB, 
and utilite the 20KS Wlncbeater dlak. 

Our OS-9 Clclx ia used »• the only aachlne Cor teaching 
Aaseably Language, It Is alao the prioary Bachinc studted in 
our Operating systaaa claaa. 

Additionally, becauae of the eaae of Interfacing the aachlne 
to other RS-232 aachinea, w« ua* the GIbIjc for coordinating 
all data tranafera between tb« varlOhii aachlnea on caapus 
(Including two PRIHC BinicoBputexa — a aodal 22^0 and a aodel 
S$Q in and outalde computer a and network* that w* aubacrttie 
to. I Bight add that w« have ao Ear been unable to effect 
any networking control with our PtilKEa. alnce ww choa* not 
to Install their networking aoftware at a coat of over 
$10«aO(). The Cinix ia invaluable to us in that r*sp«ct. 

We have lately added another wvrd proceaaing aoftware 
package to the aachine. and our caspue conputer Dae 
CoBBlttee authorized a policy of *heavy recoBBcndation* tbat 
our studecta and facility BeBb^ra uae the Ciaii eacluelvely 
for their vord processing needs. We alao have it networked 
to a CoBpugraphic electronic typesetter at a local printer, 
and w* uae It tor printing a nuaber of college 
publ ie«t lons'-goln^ directly ttom 0$-9 text files to 
CABera-ready f Ub wi thout any hu*an Intervention. 

Juxt thia auanefi we have begun to use the Clals heavily for 
prograJiavia chooalng to uae the C prograsulng language, 
chiefly becauBt of the alBilarities between OS-9 C and VUlK 
C coapllvia. 

finally, our Bualneaa departsent will be using the GIbIa. 
running the Dynacalc apreatSaheet prograa. In ica 
introductory 'Coaputer Use in Suatneaa* classes, that will 
b* required Cor a large nuabex of ovr Coanerce aajors. The 
taachera using thla package have had nothing but favorable 
coaaenti on Eynacalc, and one of then haa aaid ahe la 
conalder Ing ualng Dynacalc to replace a lab clasa ahe now 
teachea ualng SPSS on the PSlME* 

In abort, the Claii has proven to be very heavily uaed here, 
■o auch so that the Coaputer Ose Co^lttee has reco^anded 
to the Ada Iniatration that we purchaae another Identical 
aachine* to be uaed aolely for word proceaaing by both 
ath>dentB and faculty, tt ahould alao be pvntloned that »« 
have yet to esperltnce even a alnute of down 'tlae of any 
sort on tbls Bschlne. Also, during repeated dips in power 
supply voltage tdue to our reliance on rural electric 
aupply) we have had several probleaa with our PRt>tC aachinea 
*golng down* Cam to the dips. The Gialx aalla along 
unacathed. and by Its reliability has proven to b« so»«what 
of an eabairaaasent fox the PRIKE aalea peraonnel. 

If you need aore Inforaation about any oC thcae 
appllcat loca. feel free to give a* a call. 

Sincerely 



^^ftrt*< ^;?5^Sie^fc> 



Bruce Hatbew 

Aaaiatant Director Of Coaputac Serwicea 

C«ntlB*tn, *'"• 

I preiancl)' havt • Itcdio Sliack MIC Color Coaputer wLrh two T»ic douhl* 
• ld*d <fi«k drive*. 1 Aa int«rt»tcd in upsr«dins to • BOtorola 4BOO0 bciad 
••chin*. I fa«v* looliid Bt cTtc AppI* Ktclncoih but <« not tJCifiad with it. 

Maa* forwitd AnT inforwjtion th«t you tan provid* on hofcftr ciwpuEcr* 
u»in| Kutorota ASOOO, «6005. (SQQlO, (90020 arc. •!< toPTac**«oT». |n 
studylna to*tr pubtic«tioo I found *ddr«** for SVTPC. MA cbic*|o Co^vcar 
C*nt«r and Acorn CoBputar r*nt*r. I alaa a^v an adv*rcikaa*iic for GDlII, 
but chair advercisfd pric*a ara bayoitd ay buda*'^> I •• hoping to find a 
aachin* that will allow aa to utili«« ay aKlatins ClT and ditk dtl«a«, t 
woold not ba opposed to • kit or partially a^taablad aachina. vhowld tliar* 
ba auch klta availabl*. 

tty addrtaa ii ai fonvwi; 
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KtrrT M«Or«tb (lltt«b)) l08/9*>-t900 
Kaa Kaplaa (Ml«PO«ara) 5 1 9/324-. 1 f 2 f 



itTicii Aii«iicii cfliirLiTt TitiP fiiTT AorTi«ii lorroit 

FOI lIOi-pllFOIIIICS iBTAICID C*T COITIOLLII DkflCI 
CllCtOOr J«lf 1f« 1*A9 •- tb* d*alo«Bd«*t«r ild IC Bl«iii«s ef Blttobl 



S«rt.v«ra ar«t.««« (Oaa), twe i«*tfl«g *ortw«r« baa«tti» ■■«■ Jalotly 



Orspbloi •at CIT Ce«lr«ll«p ikCttZ) d«*laa, tbo H063bA«> 



aMltltaaklni, Qitl-lika «IO0Q*babid op«rttlA| arX^" for th« ICHTC tod 
orrars ■ e •oapll«r r«r •»»ll,calldD-pre«ras davtlapaaat. OAS aod 



»ltb aora thaa (5 porlpbaral davlaaa ablla It aalatalaa DOI t« VDtX 
popttbtSlir. Tbaaa ape aaaa of Lba raaaaaa vbr It aaa aaSaatad tj IBM 



HI a 



bllblr rag«paa4 035-DXiril5 pradna t • vblofc p pa* Ida* ■ sommrfail , davlca- 
ladapaSdaBl aalbe4 Car craatlaf pepiaala *r*pbloa->ariaatad appllaatiaa 
aartwara, 0S9-Dliril5 Qoaforaa ta tb a ppapaaad i|ll/I50 ftrtuaL Cavlca 
latapfaaa <fBX) acaa«ap«, HlQpawara 1* portLai lba 099-d«*aiapad 
packafa (a tba Ot-1/68000 epapatlaa aracaa. Latar fcbia ratp, 03^ *m<. 
MlQPeaftr* will alaa affar a Orapblca Zaraal irataa t9wS) aptlaa, wbiab 
la qateklr laialDg proalaaaca ba isa 1 atar aailaaal aifb-laval grapblca 
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■far tba ripal llaa a eoaplai papipaaral auab aa iba ICITC ftta aaa 
aaaplatalr aapperlad aiCh la 4a airy ataadard aaftwapa teal*, ■ abld Taor 



Taa ll&aabl aaalcaadaQter aad IC DlvlalaH baaaiaa taa aarkallPl^ 
aalaa aad aapTloa aatlvltlaa rap iltaabl laarlQa, Ll4., a V.A. 
Qarperatlea. «blab la a wbcllr awaad aabat41apr ar Vttaablr Ltd. af 
Japaa. Sbari* Mf Iltaabl. LV4. ara trad ad da xaarlcaa Dapealtarr 
■ aealpta ea tba i«« Topi Steak ItcbaaAa. n« dlvlalaa aell* aad 
«ap«l«aa alarepreaeaaap. noi aaaary, apto-al aalpaate. blpalar aad amar 
Ictaaralad alpawlta ta OSMa aad dlatpiautera. 

na eeapaar ia leaatad at 22iO O'Taala iva.. aaa ieaa, Calif. . 
99l3t. TalapbChb* «0l/MZ"1«0«' 

An Open Letter from the 
OS-9 Users Group 



CH03 f.tt trrara. 



.SPllB.tlC... * 

Tka O3-9/I4O0O ep«r*ll«c .rttaa 1« rtpUlf i.l.t.f p.pul.nir la 

■■PK.ta. Tb« D«w v.p.lea't aaTtwara drivara taka full adaadtafa er tta 
iCITC'a feilft-Bpa.d letaUl«.Bt ipmtfelsf dr.niaa rMl.tl..B. ar.fhl.a 
l.asaa cad t* eoaftlaad wllb tait data la ■gltlpla raota. i«rtwap. far 
(aa acxTC aaa ba daTalepe4 aalaf Mtorawara'a C aaapller pubdIoi ea 
allhar a bbooo-aaaad daaalapaabl apataa or a laria Die rit Clpaaaarlap 
arataa. PIJIC, Fiaaal a.d aaaa.blar pra(raaalo« lailvalaa »ltb (raptla 



laaradlbla latal of ibttipatlea of all taa bapdvapa aad aertaapa plana, 
as OIR aaada la ..11. a atata.ar- tba-apt fr.pblca arataa. iltan.l aad 



a.aput.ra, C40/CIN ayataaa, frapblaa waptatatleaa, ba. alallar 



Ta. ■D43bl*. latpad.aed laat Jaaa, aaPlora lltaabl'a 2-.larea all* 



aalp .par. tab altb a lO.Mga al.ak. Arava at ■ bOO aaeaaa 
aad aaa .paata laagaa or ap la 4046 br bdtb pltala, Xt 



aaa palat. fill aad Mpy abjaala 14 b5t4}( dirrar.at gal. p.. 



4CiTC vlli bp.r 4 drBAatla I4.r.4.« la ip.pblD. afplt.aBiaa 4*«albpMaata 
.aid OBJ Pr.aldaat Taa Clarkaaa. 'Oup IPOZ/lAO-baaad T9I aaftvara auta 



Dew Don, 

Pleose accept our sincere spplogizes for letting yoir 
apglicationrormenitrrstiipinthe OS-9 Users GnMi|> jlip 
t^rou^ the cracks As soon as I read yoir note in your August 
Issue, I sent rrtefrtiersh ip cornn ii tte« cftairman Joe OUmk a note 
arid asked him to enter 60 tlicro Journal into the OS-9 Users 
Oroif) data base imnediately I also asked him to send you Users 
Qnuf) Disk Nwnber Zero and a copy of each bock issue of nOTO he 
has on hand nOTD is the tdi^j's bi-monthly newsletter Ian 
sorry for any inconvenience we have ca ed 

I hope you can find it in your heait to publish the following 
kudos to s smell cadre of hard workers who have helped this 
group grow from just more than SOmerrters in August of 1903 to 
nearly fiOQ today The kudos will toke the form of a listii>9 of tt»e 
groups accomplishments diring this same period. 

First, a tip of our hat goes to Tim Grovac artd his wife Lori in 
Kent. Washington. They both work hard to publish nO TO eveiy 
other month Tim artd lori stepped into publish the newsletter 
after Dick (X«)don passed away last December. The last issue 
contained more than 20 pages of solid information Several hove 
been longer Oir hats are also oft to the regular contributors that 
make Tim's job easier Greg Horse, who writes an information 
packed coltfm called BA$IC09 Comef-.JimSclmiidt, who's CoCo 
Advocate colirvi is both informational and fun, Bert Sctneider, 
who wntes Users Group Softwar* Commentary, a regular 
senes of reviews covering software contributed to otr exchange 
library, Dave Kaleita, who i^dates reader? about the latest 
library contributions and offerings and Seorge Oomer who has 
contibuted several interesting aiticles in addition to his regular 
treas»rer*s reports These men form the heart of MOTD. bol more 
and more members are contnbuting ideas and short notes every 
issue Tharikstoalt 

(Xr next nxnd of Kudos goes to Dave Kaleita, Chairman of 
our Software Exchange Committee Dave almost single-handedly 
organized the 7<m<>°s software holdings into a coherent set of 
tools that arty (nember can order and use We nwst also thar4( t le 
several dozen mem b ers «tio contributed the 200 plus progrwns 
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that Dave has organized on 35 disks The list reads ItVe the Who's 
Who ot the 6809 world, including Hot Snyder, Carl Kreider, EnC 
Willtoms, Peter Oibble, Bryan Capooch, Greg Morse. Peter Lyall , 
to name just a tew But more impoflafitly, these disks can't be 
used by anyone until they are duplicated and distnbuted to 
members Kudos tor this hard work go to Frank and Carol at FHI. 
who have shipped nearly 1,000 disks for i/s since the tirst of the 
year 

So what else has the OS-9 Users Group done tor its 
members? Thanks to the imagination and efforts of our 
treasurer, Geoige Domer, we hosted several hundred OS-9 users 
at a special hospitality room dunng Rainbowfest Chicago Since it 
was such a gieat success, we hope to do the same thing in 
Princeton this October By the way, we plan to hold a meeting of 
the Users Gronj at Pnnceton following the last scheduled seminar 
Saturday 

Don, we realize that the group has had its problems 
However, most of them have been logistic in nature and we are 
working hard to fix them For example, the most senous problem 
has been with the first link ~ from our niailbox in Oes Moines to 
George Dome r who sot ts the mail and distributes it to the proper 
committee for action We are recruiting now, hoping to nominate 
and elect a new secretary -- from Des Moines — *t\Q can take 
charge of the mail problem But we do not plan to make him do it 
on his own We are prepanng to hire someone there to do the 
actual work This should smooth up the operation tremendously 

We realize also that we need to find a way to handle simple 
technical questions from people We are leaning toward 
appointing a committee to do this But, please advise your 
readers to give us their pt>ooe number when they wnle with a 
question Since we don't have a professional stafl, it is almost 
impossible to niail individual answers However, when we have a 
number, we often call the person with an answei — when we know 
it 

Thartcs to Joe Out>uc, Robert Ringrose and James Petty of 
oor membership committee in Okloboms City, administrative 
functions have ran pretty smoothly for the past year Joe has 
installed an impressive data base that has helped us provide 
better service to everyone 

Pertiaps a bit of history is appropiSate here E>nan Capouch 
spearheaded effor-ts to get a groip going at the Microware 
Seminar in 1982 However, there was a lot of bickering among the 
other officers that first year and the movement never really 
picked up steam Peter Dibble and I observed the attitude -- and 
the total lack of volunteers to serve as officers — at the 
MicrowwT Seminar in 1983 We chatted a few moments and 
decidedwe should stand up and go for it Needless to say, we 
were elected immediately Taking otr lead, Tom llirpfty of Suntel 
Systems in St. Loins and George Domer of Marpe r College stepped 
up to serve as Secretary and Treasirer respectively When Tom 
had to resign to takecace of a growing business, Dave Gibson, a 
programm er with the Depar-tment of Transportation in 
Washington, D C stepped forward to the challenge 

Thanks to Tom's business management skills, George's 
tenaricity, and the access to the media enjoyed by Peter and I, we 
got the ball rolling. The accomplishment of the goals we set is 
the result of the hard work of the people named above and rrtany 
others But, nothing would have h^pened if someone hadn't stood 
up aid accepted the challenge We're glad we did it. 

When we volunteered, Peter and I agreed to give it a try for 
a year That year came and went and until re<ently no one has 
stepped up to take our place " or even nooiinate replacements 
Vet, I bring yoo good news We now have a new slate rwintng for 
office and we hope to pass the torch at tlicroware's Seminar in 
ftoveti*)er Bryan Lentz, who has ¥irit ten a tot of 03-9 software 



for Computer ware and FHL is riHining for President He hopes to 
have Bill Taylor, who works lor GTE Spnnt and has wntten for 
Interface Age, on his slate And, George Domer has promised to 
rvn for treasurer again if we promise to relieve him of some of 
the collateral duties that he has handled so well dunng the past 
two years 

We welcome additional volunteers In fact, we would be 
proud to have someone from 6* Micro Journal serve as an 
officer of the OS-9 Users Group We will be publishing 
information about the election in the August issue of HOTD and 
sending ballots along with stamped retucfi envelopes to all 
members in September The deadline for return wil! be October 
15 New officers will be installed at the Microware Seminar in Des 
Moines Nov 2 

Sincerely, 

DaleL Puckett 
President, OS-9 Users Group 

Editor's Note: ThinU Dile for your reply to ty Auautt 
'SS'hatti. I htve ctrtiinly gotten the groupi litentJon 
thit tiie. I hope toacthing constructive coiet of it. The 
nuaber of rtpliei received lo fir exceed ibout ill previous 
correspondence froi reiders concerning the group, 

First off let le siy thit I ii not pcrsondUy up&ett 
neither is any of the stiff of Coaputer Pubiithing. It is 
siiply thit DS-9 is i fine systei ind lost of the users, He 
knoH, ire dedi cited hickeri or profiiiionali. The uieri 
Mho hive hung-on during the Big Blue onsliught deserve ill 
the help ind support the^ cin get. Nutuil help ind 
issistince should be the 'bittle cry' of iny user» group. 
I II delighted to leirn thit the OS-9 group ii doing so 
Hell! As Hith lost orginizations, the iiin ingredients 
noraiUy ire i sense of direction, lutuil understindina 
ind dedicated leadership. Froi your letter I feel that 
things ire iaproved. 

At you light guest, ne also are DS-9 uiert. hivina 
toie three or four OS-9 systeiSi ranging froi a sIHIt In 
Hith a ir9abvte of RAH to several level one and tno 
syiteif, including the Uni8oard, Sardis, PT-&9, CoCo and 
even a SHTPC. Alio over the yean ne have accuiulated land 
published) tore OS-9 softnare and other OS-9 laterial, than 
probably any other publication. ] continually receive 
correspondence and telephone calls froi both doiestic and 
overseas users and potential users, inquirinq about OS-9. 
He also are a 'clearing house for OS-v inforiation. 
Kivina a good rilationihip with the guyi and gali in the 
trenches can be often quite productive. ] could (but 
Hon't) naie you leviral for lori) Urge uiers who were led 
to OS-9 through their personnel Nno Mere acquainted with 
OS-9 through &6 Micro Journal artidei. Having a productive 
users group to refer to nill certainly help in introducing 
OS-9 to nencoiers ai well as enlighten loie of the older 
non-group users. Mutual cooperation betiieen us can only 
help! 

Even Peter Oibble'i book that w are pubiithing, is 
alto being publithed in Japan, in Japanete of course. At 
Nell at Mny lelected articles froi &B Micro Journal. To 
be able to honestly report to thei that OS-9 enjoys an 
active and productive utert group it a plut. 

At to t rep froi &6 Micro Journal being on the board 
or an officer, would, in ly opinion be a listake. As long 
tt coiDititive groupi have iutual interest in a pirticulir 
project, it would be a tactical littake to invite or even 
alloH either faction a voting or din tional place in the 
adiinittration of the operation. I thinir that you (the 
groupi lay have already ixpiritnciii ton of that. Mhere 
one coipetitor or tnoihtr hat accett or privy to 
inforiation or can control, to taie degree or inotnir, my 
facet of the qroup, then you can readily predict contention 
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ind jntioiitv bitHttn {ictioni Hithin thi group. And hi 
both knoM thit bicktring fictions it th* ont thing th* 
group doii not nttd. Strong but iapirtiil liidirship with 
itrict non-coMtrciil< non-<ictioni] board, of^iciri or 
coMittii iiibiri t(Mt to bi I nttd not to bt dtniid. 

I biliivt thit HI hivi ilriidy dMonttntid our diiiri 
ind itilUngntd to do ill Nt cin for tht group. Afttr ill, 
thty irc for thi io(t pirt, our cuitoiiri ind riidirt ilio. 
Ht out thii thit! 

So, thinki igiin Dilt for your thoughti ind kind Nordi 
tipriiiid. I Hiflt to tlio icknoHlidgi ill thoti you 
■tntion (ind ion I iiigint not iintiontd) itho hivi givin 
frilly of their tin ind tnirgiii to tht group. To thii •■ 
ill ow i lirgt portion of gratitud* and thanks 

DMM 






flwr HlCfO-Jff* 



ll-bU HCbMJA M««l «]fMli«-|»«nl C«|iut*r 



TTw HLcr«^70 tlng|*'-bci*nl totputsr provldai tKi bsBl* tor * pAftrful^ 
io alcrwiKWtoc. It «1H Lnclt'Mat 2 IMMttlU «' »i|#»n 



IMI iftt*rf*e* for intjlijairt OKfl UU m»W*iM . -^ ■ Uai-^-4u 
dach »Lth batttrv badt^v- fSa *••»< ^* wwf» ■■»• for an avritMl 
nCffllni rioatino*poinl ccvrocaiaof for r^^bac^T^Atfvinv ^pl.lc«tian». 
Mn optional n«twoirtt lnt«rr*c* uta« on* •«rl«l port a« a ^ZSk bit«/j«cond 
nat«ofit ct>wial that ai^iporta a* aany aa S3 noOai. 

TiM NlcT^tO la IteAilk' V^tfltad to a wlda variety of «r«U i cftt IMM . It 
provia** •» coac^arfaet Iva aAtaratlv* to UM ovtiar 
•Ml oavaio^^nt •vttaaa ACtantly aval lata a. A* i 
PTovldva HI ■■caUant lAtnalUctU>A to Via poHir and vanattllty of tAa 
AC4M1Q ■len^rocapaor. In pr«ctlcal «Vllaattana, It can ba uaad a« a 
•or^t^r* tfavai^^kwvt atatlaA, a ••'*■ r«l »ap(>a« aclanLlflc or aattll 
tetf tfwii (x^pMtan or a r— l -tlaa ovttcvllar tf\ ^r^smm» control av«t^ia> 
t0 naoa )uat a ra« of tha toaaibLlttlat. 

TTta onlr awtamai Oavtcaa r*9«lr«d to for* a aodtina ftirvtaa «r« • 
foaar vvvply and a at^i^^d Karial <ACCtIl iacwlnaS . thla baaie 
con* IWArAt i9t la aaa tty m ^t^ ^^ to MCiuda 0«M OT C«« S 1/1" fLappT 
dl«li drlvaft* a siwi ccwtlblt <iv*t<«ll tr vlth 9« or tup tmro dt«ka. up 
to S HfttitlofMl xaralnaia or otAar saclal Oavtcat C« total l . and a 
aHrallal 0rir>x*r. tytta« t> i^a^i* Mith tha HlcrvSft. cablnat. pomvt 
»(Wlr. IP^ dlah drIvwB will atae ba avaliiAla. 

TIM nln^lO la cov^n* ■ountin«4tra<tly to a «l««laAl S 1/4* disk 
dxlva, vtf GV« aaalltr ba If TPy atwd Into fw>« or aalatlna prwAM.T 
OaalVM for OOI OTllaattona. n a**!! auatllacv tew4 prow id* ■ m-332 
drlvarai racalvarai and Ptwlanl (IKtirvoi ovvwAor • for tfia four varlal 
port*- Cj — C^nra an tna a«lii bo«rd pan ba cactlad dtractly to tIM 
floppy dian *lrlva1at. tUX hacd dlak ccrrtcuUar, ^k«11«1 princar 
l«intconlca-typ« imarfpca). mnd pe***, w^piy. 

n ONI waralvt o< ■EA'Wla'B OM*^ ta irKii^ad with tha fll«ro->0. 
Q20«ua It a 'wn TiPf ni datk«ptn9 lae^awi ■>tt^ factlttlaa for tt^^l^idi'^ 
■nd •aocwttnp uaar ptvpiMif fRM a Aoat ai^taa. It ifKludaa cv^ktftOa 
for diaPlov and aodlflcatlvi of aaaary, bc"^ «pM lnt eaoaAlIltlai, a 
powarful aataablar/dlaaaaaadlar. «nd •v»t^ dlflWattc*. v«c(oua OlOawp 
■ Vataa roJtlnai, tiMfk *a l/t) hamUara. ar* awalL«bi« to uaar cvugra^a. 

TTw nlervaaM o«.«/»M00 dl«K oparoting jVita* vlll ba avall^lt aa 
■n C9t|en. iTila aultt-uaar^ aultl-taiJilng Od ta aulc^il* far aoth dtik 
and nOd baaad ■yat«»«. 



11.9 too K*HIO ]3'«>lt iiicnvn^aiaor 

- 31-btt xld* ruv>-«il tlPlaaad data « adtfraaa buaaa 

- ow-^io inttrtMniart cactm 

•> dbJoct-coOa CT »M ttbla «tth aacllar M«0«0 tmUlv 
procaiaort c«Mo4/«doe&/«aoio} 

- Ot^ntmA InatmrtlAn art 

- •E^«t>cai»or Intarfaca 

(Vttonkl MMl rioatl/V-paim coprocaaaor 412. » lttt» 
. Dlra<t aiCanalAA 0# MO20 natnKt l«n ••« 

- f\ill tuppbrt o# lox riM, dnrt lo.tt 

- Traoac«««rntAl • and othar aaih fi^tctlona 

i rn^n-T t» of lUt* (MW » ll-blt on>vflxavlanl t 

uto t« IMK ■vtaa pf mm 4 mm * it-biti 

. Ua«a IwB 27«4, ITIU. aT74«. or 279X2 t^KWtm 

Pour Aavim^ttJ^Aoua »«rL*I lyo FOCTa <1 ■ HClMll OUUTl 
« loftwara Pm«r^M«fal« faA^ rwcaa to l*.Zd 

- ■tv4»rd H-J)] ifltarfaca 

- OptlvMl (Mt«««1t IMarfaca on ona port 

k^rai-ad P-ttlt Pvallal 1/9 ^WT (1/2 ncM2M> 
• Cvttxvtlca-t)** paralial pTintar PUwUt 

- n*y aiao ba ti*«d a* an t«i^A cert 

Tl^r-of-OPV CIoe^/CaI^v^k w/Bpttpry baaa* 

ControUar for vm t« Vwa 4 1/4" flflwy DiWk ortvaa 

- Slnpla &r daUhla altfad - Vlr^a or tei^la dwttr 

- 4* or M Ttwka Pm- iaa C«0/M lt«dk) 

Movtta DlraAlv to a It^slard 9 1/4* Oirt orlv* 

Udl Intarfaca for lnt«lllff«nt tlmt< Diak tt^ftx^Uar^ 

kl* PPTlOdlC IntPTfWt danpratar 
«iicln« aid rpal-tld* adtl I Odit ItfW 

- intdmvt fVtdd fro* ■Icpopactnda to ■imWirti 

- MWay aceurpta tlMbasa (S ^> 



* » 1 nMnt r varttan of t»w htmcd wtll alpo ba a^aliMil f * 
HltA tAa HAa faattfTPl M tft* 2 H^afrv^ a SbMcd . 

{Tha I <^y«a Ooord can not tf a n» » ^ d to 2 lbV^*«< t 

on tnc " liif M 3Tvh riaea • Chlcaoo. tl COM4 
(»2I *2T.491« ^ TVX 91d.2Zl-«0tS 

AM 

COMPUTER EXCELLENCE INC 
A83^ N.E. 12th Ave 
Fort Lauderdale. FL 3333^ 
305 752-8321 

Larry Willlaas 
P. 0. Box 849 
Hlxon. TN 373A3 



Dear Larry; 

The price of 256K DRAH chips has 
dropped again. Ve would like to announce an 
Inmediate price reduction. The 1 Meg. card 
will be $895., the 512K card will be $745, 
the 256K $695, and the ]2&K $57 5. Ve will 
also sell an assembled PC card without RAM 
for $495 and a bare PC card for $150. 
Included la the Manual and the TURBO Disk 
Software with the new TURBOCOPY routine. 



Thank you; 



<^ O^^Ji^^U>^^^ 



T, D. Farnsworth 
Vice President 



cnnitophtr F.Otat 
U]S Ltilngton A«inu* 
Mr. <rort. N.<r. loiza 



»-»it •• 



»■ •wita>i 



' thm pi^Bwaor 



Cotputtr Publlsning Ctnttr 
(8' Micro JourntI 
S900 Cttlindri Saltn Rotd 
NUton. Tn. 373*3 

0*ir Don: 

I h4v* ntvir arltttn to your publlc<tlon bofort 
but I *■ doing lo noo ror sivtril rtooni. 

First off 1 vould lUt to i«y ( long ovtrdut big 
TNallK tOU for publKhIng tht tt'Mj. l htii lubscrlbid 
to your publl<itlOA ror itvtril yairt no« tnd h<«t. •> 
ilaiyi. tnjoyid tht trtlcltt tnd uitful progriat thtt 
you Inclutft. Ntny of tht progrtai hot provtn to bt 
Initructlvt tnd <try uitful to ajr work •< ntll is to ay 
coaputtr hobby. I oun « SWTK (BOO coaputtr uhlch 1 h<d 
purchistd tnd built back In 197S. My lyitta It ont of 
tht old tlatrs by todiyi sttndtrds but It 1< ill<t <nd 
■til tnd quitt ustful to at running ay oan softvtrt tnd 
progrtas .hlch run undtr TSC's flt> Z.O DOS control. 
PItttt don't stop co«trtgt of tht 6800 strlts of proctiior 
chips if It li 4t (II posslblt. I nould bt forc<tr lost 
without youll Ron Andtrson's 'Flea Uttr Kotes* coluan 
Is aoit dtir to at is I *a surt It Is to amy of your 
rtidtrt. 

etttlng to ay nt>t rtison for orltlng I aould «lsh 
to Sly (fttr htdng rtid tht Autust Issut tnd tht Ittttr 
froa Mr. O.E. &ro«ts. I could not igrtt sort. 1 too h<»t 
hjd tht good fortunt of <ltlllng olth Jtrry KopptI froa 
AAA Chicago Coaputtrs In tnt Oitt and aa >try ha«py to stt 
that nt has surfacts again. | ha«t dtlt >lth stvtral 
iy»pll*rt that advtrtlit through your publication and fi4»t 
*i>ays bttn quitt sttlsfltd vlth thtlr product. I fttl 
.try strongly about supporting (host cottpanits aftd ptoplt 
tnat Hat* stood by us all thtit yitrs. To ■« itii dlfftrtnct 
in prlct on .arioui Ittas Chat can bt purchaitd through 
your advtrtlstrt as apposad to tht rtst of titt vorld it vtl 1 
north Itl Tht htlpfuintss tnd tnt courttty btyond tht call 
of duty that tntst ptoplt na.t shonn at hat atdt at a loyal 
custoatr. It aay sound ablt corny but 1 vould llkt thta 
to kno. that I DO CARE about tnta too' 

Itstly, sinct I ht»t bttn gttting ustrul Inforaatlon 
tnrouoh you all thtst vtars 1 ftlt It vas tlat to offtr 
soatthlno back In rtturn. If «ou fttl It .ould bt of Inttrtst 
to your rtadtrs, I havt arltttn softaart for and bvllt tht 

ntctttary tiardvart nttdtd to control a ptrsonal noat tiltphost 
coaaunlcttlons trstt*. 

Tht systta I built Is currtntly In vst as tnt aaln local 
Inttrnal ttltphont tystta for tht building In ahlch 1 lltt 
In litK fork. Tnt systta can bt ustd on anything froa tao 
stations to o«tr oot hundrtd If dtslrtd. Tht btst part of 
til It thtt It Is all control ltd by ay SWTPC 6800 coaputtrl 
Through softaart I aa ablt to ust tnt coaputtr to aonltor 
othtr things In tht building at tht ttat tiat as atll llkt 
stcurlty. ttaptraturt tnd ptging ftcllltltt.. 1 havt ay 
no ttralntls rtaottly loctttd froa tnt coaputtr tnd ust 
thta for systta status rtports is atll as for ptrsonal 
•grk. Ny systta has bttn running this aty 2* hours tdty 
Its dtyt a ytar for tht last four yttrs. Itrrlng Con tdttan 
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electric It li«> been runnino llk« 1 ch<as. I f((l th4l 
"0 coaouttr should b« sltilno on the shtif ohcn tn«r« Is «ll 
th<l aork out thrr* to bt dont! Ltt mt knon if vou noulii 
Mnt (n (rtlcl* of tnls nituri. 

Forol<* at I f I ti<v« roblcd on (bit but oiic« I Oft 
stirttd I find It h<rd to stool 

Slntcrtlt "J"'*' -v. 
CrifmoBBir F. Dtmt 

Editor'! Notii Chrit, thinkt for thi kind nordi. I hiir 
thi iirVoT ft\inq you in tiying ijuitt oMtn, 

At looit It an idvirtittr dropi out of 68 Micro Journal, 
for any riaton, I ai lOon flooded nith calli and litttri, 
■anting to know ithat hapcintif. Hhin ont hai aofti undir, you 
NOuld think that a cloii pirionil Amii friind had ditd. 
Our riadiri havt a luch doitr rilatiDnihip nith our 
advirtiiirt than any othir coiputcr laaaitne I knw of. It 
ii lad but trill, ton art failing. But othtrt itti to 
thrivi in tht laat tarktt. Mhy? I think I knoit, but ton 
folk! iuit ill* ditirtintd to go thtir oitn itay. 



1 gutit that ont of tht loit itportant contidtrationt 
ill 



II 

SityiCl iid ceitutiCitiot, Mhtn an advtrtiitr itart to 
look ihakty (hard to git on phont, quality gont to pot, 
advtrtiiing and cuitoitr cottunication dtcrtastd or gont, 
ttc.) thtn toit of ui begin to aondtr. Aftar all, it only 
■ant to do buiintii itith tottont itho is itrong tnough to 
lurvivii itrvlct and laintain any producti I tight havt 
touglit froi thtt. Nothing is tort dishiarttning than to 
iptnd hard tarntd lonty and thtn find out that I at alont 
with an unrtliablt product. No lu^port, no coiiunlcation, 
NO SALE! 

And at you layi '7 ai Aa;;y t« sn ihii hi hit furfacrd 
Itaii.' Hill, 10 Ntrt Nt. Soit liittn a littlt bttttr 
tntn othtrt. At for tht artldt - I and thouiandi of 
rtadtr/ustrs itould apprtciatt your sharing your tffortt 
■ith UI. 

MN 
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Don Uilliaa*, 

68 MICtO JOnutil., 

5900 Caaaoodr* Saicb Boad, 

EisaoD, n 37343 

Daar Dor, 

Tcatardaj'a >ail brought ■< both tha July iaaua of 
68MJ aod alao jour ackaewladgcaaDt of wj racant soda 
to FLU to aacoda tha tiaa of a fila'a creatioo. I 
raallj appreciated jour kind co^aota vhich cna with 
it. 

I notica that i« jour aditiog of bj lattar ra tha 
patch to EDIT coaaaod that, apart fro> a fev ainor 
tjpoa, aj ajnabol for backalaah (\) aoachow got changed 
to a forward alaah (/). Mij be job ceold clear this 
up for jour raadara. Mora iaportactlj, ainca uaing 
thia patch rather ezteoaivalj, I't* diacnvered a flaw 
in FLEI'a DOCIOID, Suppoaa, for axaapla, that we 
axerciaad LIST <f ilanaaa) under OOCXn) , and part-vaj 
through - having found the aaction of test wa vera 
after - «a choaa to uit bj paualng the diaplaj with 
ISC and then aborting with a CK. It «•«■• that DOOVD 
alao abort*, and doaa not procaad'to ita norul cloia. 
Inataad of returning to the aMraaa atorad in $CC43 
the prograa returna inataad to the addreaa atored in 
9CC16. Sven woraa , it laavea the CMDILC at $CCZ8 
uncleared, ao although EDIT ia atill apparaotlj 
working OK, peculiar tbioga happen whan wa trj to 



leave EDIT, aa FLEX thinka it ia atill executiog 
DOCM). 

lo order to get DOCHHD Co tei-Blsate correctlj under 
the cooditiona aet out above it beconea neceaaarj to 
re-direct the Wara-Start of EOIT ao that it will 
autoaat icall J clear the CMDFLG. Aa a result, I have 
ra-vrittan the EDIT patch to accoapliah thia. Bare it 
i« in full : 

1. GET O.EDIT.CHD, than uae Kooitor'a Meaorj 
Exnioe/Changa to 

2. Change the code at S02E3 froa 30 80 00 A6 to 30 8D 
16 C8 , which will (tuff a new wara-atart addreaa of 
$19AF into ESCBTN at $CCI6. 

3. Append the following to EDIT (atarting in aj caae 
at $i9A3) 

19A3 ... 8E 19BS BD CDIE BD CDIB 8D CD4B (call OOCHND ) 
19AF ... (UAEM-ST ra-direct ion) 7F CC28 (CLE CMDFLG} 

7E 038D (back to official Warm-at) 
i9BS ... 00 OA 46 4G 4S M 20 43 6F 60 60 61 6E 64 20 

2E 2E 2E 20 04 (CE LF FLEX CoaBand ... ) 

4. Back to PLEZ and execute SAVE O.EDIT.CHD 0000 1A07 

0000. and that'i itill 

While I'm about it, I ahould aeotion that ainca 
aaoding jou aj diak of atuff , I've oitfV carried out 
a aioor aodificatioo to the DATE cogmaud, to aake it, 
too, coapatible with the tiae-encoding acb^e. Mow, 
when uaing the option to change the file'a creation 
date to the current date, it will encode the current 
tiae aa well. Tou ahould therefore aubatitute the oew 
DATE. ASM for the previoua one on jour diak 119. For 
the enligbtenaent of aj f ellow-backera out there, I 
would like to add that the overlaj patch to FLEX haa 
been written aa a aubroutine, which, when called, will 
return with the tiae encoded aa a aiogle bjte io 
Accuaulator A. 

Tbia will have to be regarded aa aj aubaiaaion for 
Julj, «a I aball be going oo vacation aooo. Will trj 
and pick up again in Auguat or Sept^ber with acme new 
atuff. Beat wiabaa to jou and all at 68IU. 

Sincerelj, 

B. Jonaa 
Preaidant 

Editor's Notj! Thanks Bob, you folks at NICftONICS 
art cirla inly 'along our lott activi lupporttri. iour input 
it ctrtainly apprtciattd. 

I NiiJ ltt your Itttir iptak for itttlf. Tht Mny 
giiii and othtr prograii Mill bt offtrtd on a fiiadirs 

Strvict Disk (nutbtr 21) for tht btntfit of all. Hopt VM 
^avl a loirinjoyablt vacation (Mhittvtr that is)! Looking 
forward to your ntit offtring. Thousandi of us apprtciatt 
your tffort and iharing. 



Thanks again Bob, and havi a good 'un. 



DNH 



Dear Editor, 

Thia ia a requeat for help or more plainly stated 
...'how do I adjuat to living with a computer 
paclt-rat?" 

lAat fall 1 married Chuck Adama knowing 
little about computer peoplet' I have 
found them to be wanoj friendly, bright 
hat adverae to throwing out anything 
SOPT or HARD 1 

In Chuck's articlet Auguat 1985 isauei he aaid, 
'...it took a great deal of soul searching to 
put an old friend away. I needed jaore room on 
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the deslc. " It Is true. ... there la no room leftl 
Any helpful hints from veterans in my dilemma? 

Judy Adams 
P.O. Box 6809 
Denton, Texas 76203 

Editor_;t Note: fosA inil , \ dmto, I' it hoM 'Uv' lot 
litifr a'ffii inn ion, M ) io rititbir rtctifite » liitir 
fret ) ttiitt i iiH yitrs bick. It ms to tht foitt - 
'FLUSi, ciicd itu4iitity ly sabscr iftiot. Sy tiiii hts 
girn h m iiml turtitg, - It's lithit art ri4 of *// tbi 
coiputor stiiil, or shi aotif A Im 4iyi itttr »i tmivii 
iDothir liiiir froi \hi shi rttiit, this tiu is »is hir 
Uil, Sfititl Ditinry, SPiciil Ilit4lit9, yov ktm, thi 
mW tni. It sitply siitti - 'Hii sicoti thoajhis, kipt 
thi cnptur, klip if sttbseripiiot coiii; »s 1 ttvi i lot 
ton till lor htckitg.' 

ktuilly. hotist itiatf m 4ii riciivi a tittir is iboin. 
I klip chickit^ thi sabs nil, froi tjif to tin, mi hi is 
still curritt. So hit, 1 Uiri it up to soti ixp irintti 
tniir to ftti4i you it thi proptt tittir. 

m 



f,S, Cotintulitiets iid ni ill nish you iti Bur' my 
yfir5 oi fliiSitt 'piititf. 



A Computer Odyssey 



I bought a Southwest Technical Products 
6800 system In 1976. I started out using an 
old Teletype ASR-33 as a terminal, relying on 
the paper tape punch reader on the TTY for 
program and data storage. About a year later 
Percom Data ran some ads for a cassette tape 
adapter, I had to have one. Next their ad uas 
for the LFD-400 disk system. Again I had to 
move up. With the disk system and an adapter 
program, uhich also came from Percom, I moved 
up again to FleK-2. I then thought I had 
everything. Up until my 6800, I had been 
using mainframe systems. Nou I had my very 
own computer. Immediately I modified every 
piece of software available to run on that 
6800. Hany days and almost every night was 
passed writing every utility I could think of 
using. 

I have the very first issue of almost 
every micro computer magazine since 1976, 
including 68 Micro Journal. 

Things were great for a few years. I use 
8080 based systems at work, we build alot of 
prota>type systems (data collection and 
controllers etc.), so I know how good the 
6800 series of chips really are. Then 
everything began to go 6809. I just had to 
have one. This time I bought boards, blanks 
ana wire wrap, and bui t a 6809 systea froa 
scratch based on the SW'^'PC 6809 systea. I did 
use a Southeastern Micro Systems, Inc. diak 
controller and an F&D Bother board. Flex 9.0 
version 2.6 came froa SWTPC. I was all set. 
Everythintt worked flawlessly, for a while. 
The crash came when I tried to use the print 
spooler. I used the 6800 print spooler all 
the time and not having a spooler on the 6809 
was intolerable. 

What to do? The best thing to do ia go 
right to the source of Flex, right? Wrong! 
Technical Systems Consultants aay have 
written the original Flex systems, but, SWTPC 
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through my 68 Micro Journals 
s, a fix for my problem (page 

A letter from Jim Cordill and 
I had to do a little hunting 
e right locations to change, 
in using the disk edit utility 

spooler worked with my old 
er, but not with a serial 
arallel printer was not letter 

was no good. Another call to 
eing shuffled around to half a 
t was decided I had a problem. 

definitely mine. Their Flex 9 

else had complained with this 
as my hardware or something. 



I definitely had a problem. I deleted 
all the print spooler utilities off my disk 
an used Flex 9 without them. Occasionally I 
would send print files to my 6800 and let it 
do the printing. This was the way it would 
be, but I couldn't stand it. It had to work. 

What to do? After thinking things 
through, I hooked an oscilloscope to the IRQ 
line. The timer was interrupting the 
processor, but the interrupt was not being 
reset. My 6809 was in an endless loop. Where? 
Next thing to do was to write a routine to 
tell ue where the processor was, and set up 
the NMI vector in ROM (see Abort Switch for 
6809, 68 MICRO Journal, August 1981, page 
35). Now when it would go off to never land I 
could go with it. It turned out that an 
interrupt handling routine for the print 
spooler starting at $DB9F was where the 
processor was going. After looking at the 
code in this area I found a BEQ ($27) 
instruction at address $D3AA, which could 
never be satisfied. I couldri't find a reason 
for it btiing there so I converted it to a BNR 
($21) instruction. The tension builds. 
Needless to say I was excited. Had this one 
instruction been hanging my system all this 
time? RIGHT! The print spooler now works the 
way I expected it to work. I still don't know 
why the BEQ was there but NOPs or BNR seem to 
work equally well. With this change you don't 
even have to change the timer board port 
location. I'm again very pleased with my 6809 
system and my 6800 system. Also I enjoy 
reading through the 68 Micro Journal. I am 
sorry to see Flex on the decline, but I won't 
be moving to 0S9. What I have now will have 
to do. 

I guess tha moral of this little story 
is maybe we should believe in what we have 
and get to know it as beat we can before we 
jump into something else. I enjoy my 68XX 
systeaa. I have PL9 also, a fantastic little 
language, but that's another story. 

Howard Thomas 
5118 Ruaaett Rd. 
Rockvllle, Hd. 
20853 
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HEW PRODUCT ANNOUNCEMENT 

A $12K RAM DISK cartridge for the Radio 
Shack Color Computer is now available for 
$296. The CCRD cartridge is designed to 
plug into the multipak expansion bus of a 
CoCo running OS-9 . OS-9 drivers for the 
device are available separately on disk for 
$20. The CCRD cartridge together with the 
drivers provide a half megabyte of ramdisk 
t/r device) which can be used by any 
program just like a disk drive but provides 
several times faster access. Two 
cartridges may be used in one system to 
provide a single device with t Megabyte of 
storage. A ram-disk is especially useful 
for speeding up compiles of the C or Pascal 
compilers by moving programs > source code 
and libraries to the ram disk. For more 
Information or to order contact: 
D. P. Johnson (503) 244-8152. 



COTipi^ltr Ai.wendungen 
Tait, 59BB7 



data^link ag 

8i2S Hirnrvgg 2uricri Switzerland 
T«i 01 9B«29S4 

Dear Don, 

I read your magazine for yearr and lite it nore and nore. 
Hereby I send you an article for your aagazine. 

HOW TO BtntN 27126 CPROHs ON ITJC WINORUSH 
UNIVERSAL EPROH PROCRAWiER 7 



Somi bictcround. I do tltctronics for ■ 
/•■••rch CO. ind I run my own company 
(Stritl Eltctronics Inc.)on the sidi. 
Ir thoic CiPicltlis I monitorid MCU't. 
Tht 4004. 4040.8006,8060 (nd th»n tht 
6600 wir« introductd. I could not wait 
•ny longtf. In tht «Pfi'^g of 76 I 
bought • E.P.A. 6600 bittd comeutir. It 
had a CPU bd. with a hix key pad, 7 
•tfl. rtadout for tht addrtts k data 
bust and a 6K mtmory board. It also had 
thi origional mikbug monitor. All of 
tKat for only «1200 WOW. Alio bought a 
•900 Adam 3A tcrmiral.I wai in my 
Btvinth hiavin. With thi addition of S 
6K memory bd.'a. thi lyitan was uiid 
untlU tha spring of 1960. 

At that timi I purchaaad a M.S.I. 3S<, 
dual diik 6800 baaad computar alio a 
Viewpoint terminal. Thii combinetion ie 
atiU levine well for the deiign of 
monitor and control tystems. Oh yea • 
few months back I bought a COCO 2 for 
fun, Now it is growing. 

Again thanks for Publishing the 8600 
Micro Journal all these years. 

Sincerely ^ _ y ,^ 

S.Reidelberger / 
Sr. Des. Engr. 
Serial Electronics Inc. 
92i4 Cerrltos 
Orange Cal . 92669 



Originally the Windrush Universal EPROM- 
Prograaaer can only be used to burn EproBS 
up to 2528 ( a not very usefull device «). 

A SBsll Bodlflcation aakes it possible to 
burn the well known 2712B EPROH of any aade. 

Hardware: strap a Wire-Jumper from Id pinlS 
to the 2a-Way Eprom-Socket SKTB pin2& CA13). 

Software: replace the Eprom-Identlfication- 
String "2528" by "27128". Change the Switch- 
Settings to the same as the 2 7&4-Eproa. 
Thata all '. 

further enhancements have been made to the 
Software like: 8-Bit Checksum-Calculation, 
Data- Verification ... . Send tlO.- for the 
Patches on disk. 

Is there anybody who has modified tills Pro- 
grsnmer to support the Intelligent Progran- 
■Ing Algorythm 7 

Kind regards 



tUlL 



Peter Keller 



Mr Don Willismt 



This is a first for me. I've been read- 
ing technical journals tince WW3. and 
this It tht firtt tlmt I'vt ever tent a 
letter to the editor. 

Firtt let me Join the bandwaoon tnd 
consrttulatt you on t tint Journal. 
Stcond I did not want you to think that 
one of Our /taderi waa abandoning you. 
I'vt had t lubtcrltion in my comptny 
namt IStriil Eltctrenlca Inc.) tince 
Sept. 79 tnd t tubteritlon to Color Mic- 
ro Jeurntt In ny own namt tlnct it wtt 
started, Tht txtra iournal wtnt to i 
friend) now I'm Itttlnfl ont tubicrlP' 
tlon run out. 

'68' Mkro Journal 



to» Ull l<*ni 

€9' flicro Journti 

Hi.lOA, 1M 17141 

Dot, 



l^ D«v I « JtoAd 
Acton. rv> ai72« 
2« Juki IVS3 



I'n to^rv to h««r you had a bad aaP^rNvnct with tf^« 05-9 Uttr'a 
Oeowp. In all fairnt** thowqh . th» Uaar'ft Orouft haa C0»« a Ion0 
May ainCff tha«r aarly daym two ^aart aQO, r h»v» raca.vad atvan 
i*«u«« of HOTO. tha Uaar'a OrewP nai-a lattar. and mavfral diaka 
from Iha ao^twara tKChan9« library. Aa far aa ( can tall, tht 
Uaar'a Oroup i% doing ^gat f.nt. I'm aura it you ...roca thtia a 
nota aKOIainin^ tha Preb1a*i triay would ba happy halp. 



Tha $oftwara LiDrary patar OiDOVa mantionad tn hi* column 
raal . Thara la a I ao a lot of axcallant inforfaation oaing 
aMChangad in tha Oft9 Fsaum on Conipuaarva. 



a far 



Al you oolntad out in your Cdtananta, 
anlira1.> by voruntaara who do thia * 
all Pitch in, w* can Malta it wora. 



tha uaar'a G^oup ,a run 
I thair ipara tioM. If wa 



Puttr fticht I , 



■cal I 



I raally anjoy 68' n*cro Journal, and appractata that you 
»m aa you %9m fm'. i^a'P up Iha eood wo^x. 



tdHor's Mil Tkaitf fitir for tkf ^rtt^f riply it ly 
iiiUtltl. r~*»/i»r» ifMl it Ptiattiin. It trt 
svsttiii4 ky totttUtrtf 909 ItfSS 'fl HUf . tOHtttr, yot 
ktit U nitritttd thtt tet irtryiit iirciif t« Ut fiit 
tfriiiir. Iiif ttst til trt It Ittst ptitUd tti ttrchiti it 
tht III* diricfis*. 1 htfi fouti (Ait y«i )if( ifftf it 
trii yotr freiists tti tchtitiis fiiiilJi. Mtir iJJ, Itr 
ttti, ftyity iitit iot't coti trtni it t toltttttr 
trfttizttiat. It is itr tht ntuti Uttfit el tU. 



If 

iti foi'if ii> 



i0iit«r C«i;iiifrrf iiitr »f(fi, tit 4t»'t tit t tholi 

Uiis it tr tht lit* itHs »tittif Kit if 

tht tiif. U tfpitrt t« bt tisA tti riktih ti mi tttt.oli 



tkiifi, or ;ift iiutstittt, »ith fiifi i bit ti tiiilitf 



October '85 



48 



gtitg oil by soti. Oh »tll, you p»ys you pkott bill, mi 
lodfi »l\trt you Njof. 

ar ID f/i» or 
/irsf Hill ^i5i5, >f Jfi5f fry fttut»i\on. Host irt lint 
Iflh »ho rully n)oy Ititir coipufrrs ifttf hi¥t bicott 
«uiff pro/icifAf ij) ffif U5f 0/ OS-?. Ho»t»tr, ill our 
iurffyj iiitficiff ffiif 'J019 Ji»f' riffs irf 5iipJ)r foo 
frprnsier fo rfiHy ust » systn sach ts Cotpastrvt, anliss 
you fiirr 50if (ypt 0I sptciil phoat pririlt^ts. 

To ioHti loii iitt lilts if JM biutf. ftiif 15 iilt% of 
any 5i2f, probibJy C05f tort f/im it 15 worffi. if j; fjr 
fisirr fo snip i iiii niH joirotr by nil or l/^S, or ortffr 
) ii Kicro Journl rtiitr itr\/iit iisk. HtiitYtr, f/if C05f 
15 iiof foo bii i1 you Jiff it tht HiiHtst, tihirt tht systtt 
IS locitti. Alii 0I coiifst, ffif OS-9 Ustfs Croup iisk 
stf¥ict 15 1 i»tll inl, »*i tht bttt, co5f «i5f. litr 1 
Siii btiort, til H¥ir Hi rtitiot ours, 50 I at only go on 
Ntiif you iti stvtnl othtrs h»»i rtliyti on fo le. Ut 
support ffiif DicroNtrf Imis fo ffif group is m iiporfinf 
lictor. But 1 iot't btltti/t ffiif DicroNtrf (jrfrf5 
prf55urf. iu5f iocittiiist. Ani ffiif i5 i 900^ sign 0I 
potmtiil sacctss. Viih ttchtictl input froi Dicrowiri ><ti 
othtrs, ilong »itl\ tht tilorts of tht »olitatttfs, it shouli 
bt 1 ro&u5f traittiit!eK. Titt »ill ttll. 01 ill tht 
thoitsitis of OS'^ astrs, 1 »oiiitr ho» iirry itt tttbtrs of 
thf llstrs iroup? 1 NOuJtf rrcoiifotf ffiif AU OS-9 astrs 
btlong itii cottribtiti, ltt» blooi littps things putpitg. 

Agiiu thitts ftttt lor your ini ni protpt rtply. 11 
thty cio y(t thost »ith 'j}tJiiS' itttrtst to ?uif fryinj 
fo U5f tht group a thttr omd ptrsotil ipilt cntt or silts 
grout, iti rtilly ii*ott tht ittrcits of tht group fo tht 
iroup is i fholt »ithout my 'tftClAL or prolit toti¥itiot, 
] prtint thit your rolls »ill ^roi'fisttr thn »irts ot > 
piiklt. 



Btst of luck itii ittp i» touch. 



girv 



innv 

cRunvi mato stttims 



EXORbua* Coapstibia 64K Non-Voiatila nmmt>ry nodula 

Th« 9636 !■ ■ 64K Mon-Volatlla nmrnory riodul* that !• 

orfisniaad aa ■ iglit • SK contiguoua blocka of aaaor/. 

EacTi btock can accoaaodata tha atandard 6K byta ulda 

EPROnS or FAtlS in aockata uhich ara individually 

anablad by an alflht post tion dip auitch. 

An onboard tithlua battary and a pouar fail datact 

circuit ara provLdad to aava th« data in tha RAHS in 

tha avant ot Pouar intarruptiona. Tha 9036 al ao 

prsv 1 daa aittandad addr«aa dacod Ing aa an option for uae 

in ayataaa ractwirlng aaaor y aanao««*nt . 

Tha 9036 la apac IflcBlly daaignad far coapatibility 
ui th tha nesoo/neeos silcroproc aaaor bua. it la pin and 
outlina coapatlbla uMh tha EXORclaar* and other 
induatry atandard carda. Thia aodu la la mtandad for 
uaa ulth althar 1 aHa or 2 aH^t ayataaa. 

Tha 9B3B la prlcad at. «27O.00 tilthout EPROHS or RAHS in 
•ingla quantity. Dal ivary la froa atock. 

Additional infofBAtiOn la available froa Craativa nscro 
Syataaa. 3022 Carritoa Ava< • Loa Ajaaltoa. California 
90720. Talaphona 213/493-2464 or T14/Tet-2e95 

*** 
ttatl Hm< Login 



by H9W ^ftf«ara 



V»rftlDn i,o 
by »SH So«t.«r« 



Dvpcn pt Ion 



nail l« • b»tt#r «*mr%lon o* th* vlactronlc mail prOQran 
(Ivltvvrvd Mit.h UniPUex«. It !■ c*«o«ttbl* >iitri tha •Histing 
frroqrA«>. and ad(3« Aanv f ««tur»« and convvn i vnc**. A^iuitq 
Vh«»* jr« tn» ability to rvad Jnd tfslat* <M(Sa*0*> on* at « 
ti mtt. qroater 4 I**: Ibl 1 I tV in prvpar InQ and «*nd InQ ma i 1 . 
plUB th* ability to tailor th* progr •• to P*r sonal taatsa. 



s*i>*ct*d Hm^ Faatur** 

o Coim^nd* Mhi 1 * r «*ding taa ■ t 1 ncl udat d*J at^. acho. mm X, , 
tormnrd. aai I , print , gui t • f"*?! y. vc^n. untfvl *t*, ^'l t*. 
vs«t . Pt p* aiVftsag* tnouoh Cammmr>^, ExHCUt* COIMtand In 
•ub-fth*l 1 . 

o Cani»and« Mhi I * aand Ing b*1 1 : copy. d*l*t*» ad it, print. 
r*Ad <tl*, •*t «ubj«ct, ■*t toi •Mie< •K*cuta *ub-«h*|l 
cDnwo^nd , 

o Us*r d*l in*ri yttr lab I am 4vr nii»*d 'jroupa ot ummr* • ^l Iv 
n«»*s or com*a.nda. 

o Automjitic initialization throuQh a «*tup ^ll0. 

O Tha Ahllltr' tc7 r*ad * aiallbO-> Oth»r thAT) -.matl"^ 

Oaacr Iptlon 

Th* loQln progrAA on a UntFLEX* ■yaCaA la w«*d to allow 
u«*ra aeciaa* to th* cO«put*r- *y*t«m. It provldaa a p*a«Mor d 
m*curlty iar individual uB*r» on a mtjltl-iiB*r ayatsm. Th* 

Hbm L091 n Program prpvid** tha aaa* laaturaa, plus 

enh«nc*«»ntm providing for aor* avcurlty and *l*Kibillty* 

N*«« F*«tur*a 

D Th* ^lllty to **tabliah "ftacura" taminal 1 ln*a Mh*r* tb* 
KYat*ft nanag*r 1 * al lok**d to 1 pq lr\. Logins aa ^'ayataa" 
Ml 1 1 b* r*^u*«d at any oth*r t*ralnala. 

o Individual t*rmln*l I >n*« c«n b* con* lgur*d to 1 1 mi t th* 
number o1 tr i*v . and a am mum tl ma t hat can b* «p*nt trying 
to compiat* th* login pfdcvdur*. 

o Lagins may b* d 1 aabl«d pr tor to «hutt Ing a ■yat*m dOMrt. or 
Mh*fl th* Byst** ta baing hvavllv ua*a< 

o ^ record o* Mh*n and Mh«r* a uaar laat logged Into th* 
comput*r t MhJch la dl«pl ayvd *ach ti m* tha ua*r log a In. 

o Th* mm a Bag* o4 th* day can b* auppr*aa*d ooca a ua*r ha« 
s*«n i t . Login Mill not pr int th* maaaag* uni*«B it haa 
changed alnc* tn* laet tla* th^ uacr I ogqaif in. 

a A qui at login ebllitv wi^ar* no 4«*e*g** t^ill p:rirkt. 

for flora inf Df^H^tt Dfi contact: 

NSN So'tMar* 

572 Frvaaan etr**t 

Corning. NY 14B30 



(M MOTOROLA /WC 

3Ml Ed Bilu«»[* - givd 

Aultrn T(kcAS *}''2l 



Editorial Contact: Jackie A^arsh 
)13 928-6223 

Reader Contact: Dean Mosley 
H?%ft0-2$39 



MOTCWOLA V^TROOOCES THE JbKSOOOKIT, 
A DESIGN KIT FOR THE M6S000 FAMILY 

AAAsti(\ Texas, July I. I9S3» MotoroU Micrc^nEnvr Products Ctx^ufi has 
asffnfaled the M6800QKir, a Aaigp pac^ea^e wtiich enabks Ific deilgn 
9^1ncer to 4cvebp A^icrkr M£aKXMax<d sySlems. Tlie tJctiign kit ccntatfo 
Che MG68000 and MCXS008 mjoc^FiE c^nn; »a peripheral devico, related 
data ^«etv applkatioik note% and «9>(>ort>vc dooimefi tatioct. 

Included in the M68000KtT arc the following devices: 

•MCA8000 - 16-Bit Mkroproccisor 

*MC680Q8 - S-Bit external datA bus version of the .MC68000 

•MC68230 - Parallel Interface Timer 

•MC68901 - MultiJiaKTtioo Peripftcfal 

•MC68to4fO - Duai DMA (Direct Menxxy Access) 

•MC686>2 . Multi-Protocol Communications Control 

*MC6866l . Enhanced Perlphef«l Comnxinicatiora Interface 

■MC6868( - Dual Uhiv^saJ Ai/nchrovKXis Receiver /Transmitter 
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DYKACAU: (Radio Shack Version) 
A DYNAKin CALCULATOK 

by 

Ron Volgca 

It la cxcldng to aeelng all the new sofcuare coatng 
out Cor Che Color Coapucer. !'■ slao happy Co ace good 
quallcy uofcware. One of Che naweac releasee Croa Radio 
Shack ta DYNACALC, an eleccronlc apread-aheec . Ic aakea a 
wonderful 'Whac If" forecascar for all your nuaerlcat 
needa. Ic ta wrlccen for OS-9, buc you don'c need OS-9 
CO run Id {More abouc chac later.) 

For aany, che concepc of an eleccronlc apread-aheec 
or workaheec calculacor needa no explanacton. Othera 
wonder whac the exclceaenc la abouC. Everyone baa had 
experience with workaheec calculadona, only chey aay noc 
be aware of Ic. If you've found youraelf Jocclng figures 
and calculadona on a piece of paper, you know abouC 
chea. If you've done tncoae cax, you've worked a 
workaheec before. If you've ever filled ouc a credlc 
application, you know how to use one. In face, anydae 
you have puc a nuaber on a piece of paper and did 
aoaechlng wlch ic, a workaheec waa being used. 

DYNACALC reaovea Che aheec of paper and leca you uae 
Che TV acreen for calculadona, nanlpuladona, and Juac 
plain ciphering. Ic glvea you a aacrlx off 256 x 2S( 
cells Chsc lee you wrlce nuabers In thea, or Isbels, or 
squsdons bssed on whsc le In ocher cells. Only 45 of 
Che cells show on chs Coco's screen sc one tlae, but you 
csn scroll In any dlrecdon ualng Che arrowa on che 
keyboard. Encerlng a ">" will lee you aove Co any cell 
Inatandy. Here'a whac a aaapla acreen looks like: 



7892 READY 

I A )| B 
MONTH SALES 



C12 
C/A 

1- 
2- 
3- 
4- 
5- 
6- 
7- 



9 
10- AVERAGE 



H 



JAN 


1200.00 


FEB 


1578.35 


HAR 


2692.40 


APR 


58S.S8 


MAY 


499.32 


JUM 


789.72 



1224.78 



All cells are referenced by a laccer and nuaber. At haa 
'MONTH" In Ic . A3 baa 'JAN". B6 haa the nuaber 588.88. 
The power of DYNACALC li noc Juac being able Co wrlce 
dowo nuabera and labela, buC Co do calculadona wlch 
chea. In cell BIO, I cold Ic Co evcrage cell* B3 chrough 
B«. 

DYNACALC haa 27 aacb fuocclooa. They are ABS, ACQS, 
ASIN, ATAN, AVERAGE, COS, COUNT, EUOR, EXF, ZNT. LN. LOG, 
LOOKUP, MAX, MIH, NA, NPV, PI, RNO, ROUND, SIN, SQRT, SUM, 
and TAN. Hoac everyone la faaUlar wlch onee Uka COS, 
SIN and LOG. They aay noc ha eo faalllar wlch ones Uks 
NPV — nsc preseoc vslue for sll che econoalscs. Or 
chsre le STDDEV -- scsodsrd devlsdon for che 
scsdsdclsns. Wlch che asch funcdons sre cIm ecsndsrd 
operscors -- sddldon, subcrscdon, auldpllcsdon, 
division snd expooentlsdon. 

There srs alao 9 logical fuocclona. They Include 
TRUE, FALSE, ISERROR, ISNA, IF, NOT, OR, AND, and EOR. 
And to uae wlch cheee, chere are che logical operacora, 
which are -, <>, >. <, >• end <;-. Title brlnga che cally 
CO 36 funcdona and 11 operecora. That la a lot of 
calculadng powerl 

Baaldea all the funcdone, chere ere coaaanda 
evatlabla chac lee you control che workeheec. Hera are 
cba baIo coaaaada: 

A - Accrlbuce 

B - Blenk Call 

C - Clear Work Sheec 

D - Oelece a low or Coluan 

B - Idle a CslI 

F - Forvac a Cell 

I - Inscrc s Row or CoIuhi 

K - Kaysaver 

L - iDcsces s Label 



M - Moves Cells 
F - Prlncer OuCpuC 
Q - Q<ilC 

R - Repllcsces Cells 
S - Syscea Coaaanda 
T - Tldea 
W - Uindowa 
There are 16 aaln co^unda In ell and under aany of chene 
ere aubcomaanda. For exaaple, under Accrlbuce you cun 
• elecc frooi IB aubcoaaande, auch as coluan wldch, 
p r In c e r/cexcf He accrlbuces and characcers uaed for 
prlndng graphics. Sooe have one funcdon, Uke "8" which 
cleara a cell of any tnforaaclon. One of che aore 
tncereaclng onea la 'W which adjuaca che acreen'a 
window. Aaong che aany chlnga Ic doee, IC peralca you Co 
apllc che acreen Inco cwo wlndowe. You can acroll (he 
concenca of one window while keeping che ocher fixed. 
This la good If you wane Co bring cogecher cwo rowe or 
coluana chac are norasUy noc nexc Co each ocher. 

Anocher nice feacure la chac chere la help ac any 
polnc when working on Djrnacalc. To encer a coaaand a "Z" 
la flrac encered froa che keyboard, laaedlacely a Uae of 
leccera appear giving poaatble cholcea, like 'A' for 
Accrlbuce, "B" for Blank Cell, ecc. One choice La '?"■ 
Typing thla key will print whac each of che Coaaanda 
doee. Now lec'a aay you chooae "F*. The nexC llac of 
cholcea will be what la available froa Foraac. Can't 
reaeaber whac che leccera aean? Type a '?' and a new 
Use of help sppesrs. In fscc, once you've reed che 
Bsnusl, you should be sble Co run Oynscalc wtchouc having 
c o go back Co reread chlnga. If you gee Inco crouble. 
Just use che handy help feacure. 

I chink an taportanc feacure of any software Is che 
aanual. The DYNACALC aanual la noc excepdonally large; 
BOB* of che prevloue aanuala for OS-S froa Radio Shack 
were ac leaac 100 pagea, plua. Thla one la only 76 
pagea. BuC cbe aanual conra all che coaaanda and 
decella of OTVACALC . Chapcer 1 concalna a aaaple eeaslon 
ualng Ic CO eec up a household budgec. There le elao en 
advanced eeealon ac che end of che book. It la che aaae 
budgec prograa, buC wlch aore advanced feacuree. The 
beac way I've found Co learn Ic le Co elc down at che 
coapucer wlch che aanuel and Cry Chlnga ae Chey coae up. 
Alao, read che appendlxea ac che end of che book. There 
are eoae valuable chlnga chere. 

If you aclll need help, cry your local library or 
bookacore for a book on Vlalcale . Vlalcalc la a 
workaheec calculacor by Vlacucp. The coaaanda In 
DYNACALC are alaeac Idendcal Co Vlalcalc'a. I goc a book 
froa che library and cried axaaplee froa It. Iliey worked 
che flrac daet There are a few eaall dlfferencea. For 
exaaple, I've nodced chac Vlalcalc usee '/Of for global 
foraac, while DYNACALC uaea '/WF" for window forasc. Thay 
boch have che ease effecc. There are aoBC ochera, buC I 
don'c believe you'll heve any crouble cransladng chea. 

Anocher nice feacure la that che Joysclck or 'aousc* 
csn aoTc cbs cursor around che acreen. Juac plug It 
Inco elcher pore, preaa che "fire" buccon and you've goc 
reaoce acreen conerol. For aovlng che curaor off che 
acreen, you'll adll need che arrow keye or you can uae 
che ">* CO cravel Co off acreen celle. 

Finally, yoa don'c need OS-9 Co rua OS-9 VTKACALC. 
The dlak coaea eec up and reedy Co run. All you need Co 
do li puC che disk In drive and encer "DOS". Before 
you know ic, you're In OS-9 and ready Co run DYNACALC. 
For choae of you chac hava che older dlek concroller, che 
appendix of che aanual baa a aaall Baalc prograa chac 
will booc Ic for you. Inforaaclon for backing up che 
original dlak le Included In an appendix. Coo. If you 
have OS-9 already, you'll feel rlghc ac hoae wlch ic. V 
you don'c, afcer running DYNACALC, I'll bec you wane Co 
gee It. 

DYNACALC le great for all your calculadng neede. 
Uhecher Ic'a aclence, buelneea, achool, hoae, or fun, 
you'll find a uae for le. You can uae workahaace for 
financial acaceaenca, budgeclng, caah aanageaene, 
balancing chackbooka, doing school work, snd whacever 
your iasglnseion csn cresce. DYNACALC le svallable froa 
Radio Shack for $99.95. Ic would aake a nice addldon eo 
your OS-9 prograa library. And te'a ■ drasalca 
calcuUtort 



'68' Micro Journal 



Oclober 'S5 



51 



CoCo OS-9 PASCAL Review 



A New NEMBEl TO THI 
lAOIO SHACK OS-9 FAMILY 

by 
■on VoiflC* 

Yean ago there waa a nead for a coaputcr language 
Chat would be relatively eaay to learn and uae, and )«t 
would be able Co handle coaplei algorlthaa. Foreran waa 
around, but It had developed « coaplex aet of routlnea 
chat Bade Ic cuaberaoae Co uae or learn. Baalc waa 
Inaplred by Foreran. Ic waa eaay Co uae, but often 
Inadequace for wrlclng coaplen prograaa . Algol could 
handle Che coaplen algorlchaa, buc Ic waa difficult Co 
learn and lapleaenc. Then In 1971 ac ETH, Zurich, 
Swlcicrland, Frofeaaor Nlklaua Wlrth developed a language 
that fit Che need. It waa eaay to learn, since It waa 
dealgned apeclflcally for teachlog Structured Programing 
and to force Che atudenta to ba cognizant of the data 
typea uaed, etc., and yet It could handle coaplex 
algorithaa. Inatesd of naalng It by acronya aa had been 
done before, he naaed It after a aan, the French 
aatheaaticlan, Blalae Paacal. That year the PASCAL 
Frograaalng Language waa born. 

Paacal becaae the atartlng language of atudenta In 
collagaa and unlveraltlea . It waa eaay to iapleaent on 
today'a coaputera. Coaplex algorithaa could be written 
ualng Faacal'a control atataaenta. And It allowed the 
devalopaent of we ll-o rganlzad and well-atructured 
prograaa. Since the atudenta learned Paacal In achool, 
It naturally carried over froa the acadealc world to the 
outaldr world. Btreryone uaed It. It became the language 
of choice . 

Now Radio Shack haa brought Paacal to the Color 
Coaputer. What aakea thla even becter la you run IC on 
OS-91 The OS-9 PASCAL la Itcanaed through hacroware. It 
conforaa to the ISO atandard 71BS.I Laval 0. It alao 
acta according to atandarda aet by Wrth (reaeaber ttfck 
froa a few paragrapha ago?) and Jenaen. 1t)e ayatea coaea 
on two dlaka, alnce there la ao auch In It. Be of good 
cheer, you can run it on one dlak drive. I ran ay flrat 
prograa on only one drive. However, I do recoaaend ualng 
two drlvea If you can. 

The aanual polnta out, "Either you already know 
Paacal, or you don't." I have to adatt this la true. Tve 
had aoae experience with it. I entered ay flrat prograa 
and waa running In alnutea. The little prograa I entered 
waa: 

prograa aayhello(output); 

( Thia prograa will echo a greeting 

to the acreen. ) 

begin 

wiItelnCHELLO, TVEREr') 
end . 

If thla doean't aaka aanaa, than you're probably one of 
thoae who doean't know Paacal. Pear noti There are aany 
good booka around that cover it. TTia OS-9 Paacal Manual 
auggaata three of thea. I recoaaend checking your local 
library for aore . 

Koat Faacal'a have one, or aaybe two, aodea of 
executing prograaa. OS-9 Paacal haa three! Before you 
can uae any of thea you auat coaplle your aource Into P- 
Code. The ayatea coaea with a coapller appropriately 
naaed PASCAL. Coaplllng le aa eaay aa entering: 
PASCAL <MYPILK 

It atarta to coaplle KYFILE, while It checka for proper 
ayntax. It generatea uaaful Inforaatton like paeudo-llna 
nuabera and P-Coda bytea created. When It la through 
you have a file called PCODEP, which la the coaplled 
varalon of your prograa. PCODEP ia a default naoe and 
you can naae It whatever you Ilka. 



The firet option to run your prograa Is PASCALR. It 
la the noraal Paacal Interpreter, hence the "N" In Ita 
nane . Its usage looka like: 
PASCALN PCOOEF 

Bealdea running your prograa, it la checking for run-tiae 
errora. If it flnda an error, tt can tell the type, the 
procedure it occurred In, and the etateaent line In your 
aniirr^ it nmirrpfl nn . Prattv asart. hah? 



Moat Pascal's have one, or aaybe two, aodea of 
executing progreaa. OS-9 Faecal haa threel Before you 
can uae any of thea you auat coaplle your aource Into P- 
Code. The ayatea coaea with a coapller appropriately 
naned PASCAL. Coaplllng ia aa eaay »» entering: 
PASCAL 04YFILE 

It eterta to coaplle KYFILE, while It checke for proper 
eyntax. It generatea uaeful Inforoatlon like paeudo-Une 
nuabere end P-Code bytea created. When it le through 
you have a file called PCODEP, which la the coaplled 
version of your prograa. PCOOEF ia a default naae and 
you can naae It whatever you like. 

The flrat option to run your prograa la PASCAL*. It 
la the noraal Paacal Interpreter, hence the "tf' In Ita 
naae. Ita uaage looka like: 
PASCALN PCOOIP 

lealdaa running your progrea, it la checking for run-tlat 
arrora. If it flnda an error, it can tell the type, the 
procedure It occurred In, and the etateaent line in your 
eource It occurred on. Pretty aaart, heh? 

Whet if your prograa la too large for aeaory? Thia la 
a problea for the Color Coaputer, which runa OS-9 l«vel I 
end le Hatted to (4K. To aolve thla problea, there la 
the aecond option, PASCALS. The "S" etands for "Swap". 
It la uaed like Paacaln, except thla Interpreter awapa 
parte of your P-Code file In and out of aeaory aa they 
are needed. A teaporary dlak file la kept with the 
"virtuel aeaory" pagee on It. The trade-off la apced. 
All that awepplng takee tlae, eo Paacala prograaa will 
run alower. 

You aay, you want apaedt PASCALT la our third 
option. It le ueed to tranalate P-Code Into 6809 aachlna 
language. It will run faater end la reentereble under 
OS-9. Space uaed by the Interpreter la freed, elnce the 
aachlne code hee everything It neede to run. The actual 
proceae takee e few atepa. PIrat, the aource code le 
tranaforaed to P-Code by Paacal, Che coapller. Next 
Paacalt ia uaed to generete en eaaeably lancuage aource 
code. Pinelly, you uae your asaeabler froa the original 
OS-9 package to convert your Paacal prograa to a 
reentereble OS-9 aodule. 

A big coapleint In the peat waa Faacal'a Input and 
output operatlona. OS-9 Paacal ovarcoaee thle with a 
rich aet of I/O functiona to take full advantage of the 
OS-9 ayatea. Bealdee the reguler I/O'a like READ end 
WRITE, there are epaclal onee like SEEKKOF, RIFOSTIOH, 
and SYSRKPORT. In fact, there ere 22 procedurea In all. 
Who aaya It haa to be hard to write a file In FaacalT 

The entire eet of Paacal coaaanda are aupportad, with 
a few excaptlooa. You can uae WMILC...OO, REPEAT... UNTIL 
and FOR. ..DO loopa. There le alao IF... THEN. . .ELSE and 
CASE.. .OP. It eupporta all of the atandard variable 
type* Ilka Integer, real, boolean and char. You caa alao 
create your owa variable type If you wish. The Paacal 
library coaea coaplete with all the etandard functiona 
and procedurea. There are e lot of other thlnga It 
offara. You can aelact coaplla-tlae optlana and run- 
tlae optlona. There le alao PASCALK which ia linkage 
editor. You can uaa It to acrga aain prograaa with 
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• xcarnal procadurea. 08-9 Paacal la a vary coaplece 
•yat«a. 

As Hlch Che other OS-9 awiuala froa Radio Shack, thla 
ona la a ayacea aanual and not a cutorlal. Ttw aaniul 
tella how Co uae OS-9 Faacal. To learn Pascal, yokTll 
aclll need Co gac a good book on prograaming Ic. Buc I 
do bellava t\.m aanual la fairly well wrlcten. By chapcer 
2 you'll be coaplllng and running Faacal prograaa. Moac 
chapcera acarc wlch a aynopala of wtiat'a In Ic, which la 
halpful whan you're looking (or aosechlng apaclal. Oiia 
Chlng I like la chac Che nanual la bound like a real book. 
Radio Shack goc rid o( Che wire aplral binder chac Chey 
uaed on prevloua aanuala. 

I like Che OS-9 Faacal for Che Color Coapucer. 
Whecher you wane Co learn faacal, or Juac prograa for cha 
fun of Ic, I chink you'll enjoy Ic. So, If you're 
Incereaced In Che neweac aeaber Co Che Color Coapucer 
OS-9 faally, you can gac Ic froa your local Radio Shack 
for $99.93. If chey don'c have Ic on Che ahelf, ask Chea 
CO order Ic for you. ni be running Faacal prograaa In 
ay BASIC OS-9 Coluan froa clae-co-cla«. Should you hav« 
any queadona abouc Faacal, drop a« ■ line, nl cry Co 
anawer chea. Happy Faacal programilng. 

*** 

B.A.P. CO. 

P.O. BOX 14 
ICSLLKH , n 76248 
(817) 498-4242 

If fou procsaa aall ordsrst or talaphona orders requiring 
charge card orders jou can nov uae jour eosputer to proceee 
the charge card orders coapletelj. 

Bncloaed le a aaaple of the contlnouo credit card foraa that 
JOU can uas In jour coaputsr for proceeeLng anj aajor credit 
card Including Aaerlcan Sxperee, Dlnero Club, Carte Blanche, 
Vlea, And Tiastsr Card. Toit alr«adj usa ths coaputsr to 
proceee the order end generate the lnvolcln|^» jou can nov 
use the ease data to print the charge card d«po«itry ellp aa 
vail. Thla ta aueh alaplar than Lndlvtduallj tjplng, or 
vrltLng the charge card depoeltrj ellpa. Thaea universal 
charg* cards ars approved bj all aa)or clearing houeea for 
the charge Carda. Theee contlnoua charge eltpa are being 
ueed bj mftnj coapanlve throughout the countrj to proceae 
their credit tiard orders. 

B.A.P. Co. can ehlp theea to jour location in a setter of 
daja ao jou can be tn operation alaoet laaedlatlj. 

The Unlvereal charge card la available in two foraate one ia 
atandard 9 1/2* vide and can be uaed on eaall prlntere or a 
double vtda verelon for uee on i5" prlntere* The double vide 
glvea a cuetoaer receipt or file copj* 

The forae are packaged Sooo/ per carton and prlcee at 
S1T.2S/1000 for either the one vide or tvo vide verelone. 

Theee forae vlll coaplj with the nev regulatlone requiring 
carbonleee depoeltrj ellpe elnoe thej do not produce 
duplicate copies, ttoat aerchante have an invoice that 
produces an acceptable cuetoaer receipt and file copj for 
their recorda. 

If JOU are tired of duplicating the vork required to proceee 
the charge carde It ia tlae to coaputerlie the charge ellpe. 

K.A.P. Co* can aleo provide IfPS approved contlnoua COD 
labele for UfS cod ehlpaanta. If jou have requlreaente for 
theee please call. Ve cen provide contlnoue pre printed 
checke, letterheads, etateaentet Invoices, and aanj other 
cuetoB foras. Tf jou need anj of theee call and aak for our 
catalog- 

Call Sd at E.A. P. Co. (B17) 49n-4242 for proapt eervlce. 



Classified Advertising 

l-GINIX 179 Syacea OS/9 UI. wlch 19 Haga Byte Hlnl-Hard 
Dlak plua )" DSDD Drl««, alao Dual 8" DSDD Otak Syccea 
wlch Concrollar, 6-Sarlal Forca, 2-Farallal Force, 2S6ie 
172 Card and «-f67 64K Carda. 

l-FT-69 coaplaca wlch Dual 5" DSDD Dlak Syacea and 
Cone roller, Includea PLSX DOS. 

Ill Mfts M aa aCbr III 
CmH Tom or Urfy {615) B42-4600 N-F 9 A.M. Co 5 P.M. tST 



TELETYFE Nodal A3 FRIKTEK - wlch aerial (HS232} Incerface, 
and full ASCII keyboard. LIKE NEU - New coac $1295.00 - 
ONLY $559.00 ready Co run - Call Toa or l«rry, CFI 615 
B42-4600 

S/09 with NoCoroU 128K RAM, 1-HPS2, 1-Farallel Fore, HP- 
09 CFU Card $1990. l-DNAr2 Dual 8" Drlvea wlch 
Concrollar $2190. 1-CDSl 20 Nag Hard Dlak Syacea wlch 
Concroller $2400. 

l-S-f Syacea wlch 256K RAM, l-HPSA. 1-Farallel Fore, KFU 
Processor Board, UnlFLEX Included $2700. 1-QWl 10 Heg 5" 
Hard Olak i 8" Dlak Drive wlch DNAP3 Concroller Board 
$3600. 1-XI2 Terminal 12" $1260. 1-CablneC for S* Syacea 
w/ruier Place $500. 2-»2i2 Teralnala $«95. 

I alll accapc aoy reaaeaabla cs^ter-vEfar II 

Call Toa (615) 842-4600 H-F 9 A.K. Co 5 F.K. E.S.T. 

Several SVTP S* Syscaas Available: Below dealer coac, new 
equlpaenc warrancy, loca of aofcware available. 
Flndera Fee. 512-828-2679 

Coaplece 2 ahz 6809 ayaceai SSB boards & OS; 80K RAM; 
dual 8" 500K drlveai cuacoa cablneca; aofcware. 
Accracdvaly priced. John Haugeland, Deparcaenc of 
Fhlloaophy, Unlveralcy of Flccaburgh, Flccaburgh, FA 
15260; or call (412) 661-9196 evenln<8. 

MUST SELLI 6809 CIHIX 128K Syacea. 5" Drlvea, Clock, 
Flex, 0S9, Porch, CFH80, $1000. Di^al 8" Quae'a In Case, 
$200. VTIOO Teralnal, $4J0. HF16I1A Anallter, 6809 
Nodule, $1500. All Offers Considered. (303)651-9402 
Evenlnga. 

Fleaae publlah che face Chac Cha "C. Dragon" ayacea ac 
(316) 943-9716 la going "off Che air" as of 8/1/85. The 
ayacea will be puc back Inco prlvace aeivlce wlch a new 
phone f. Aay queaclona can be forwarded Co: 
ThoBBB I.. GUchrlaC 1450 N. Clarence 1108 Mlchlca, Kanaaa 
67203 (316) 943-2901 



Coaplece eoard (Ho EAM) $«9S 
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256K, 512K, 1 MEG MEMORY SYSTEM 



No* cohpalb). .hti DMA coMroUari^ n.m m vp i. tMhi .lihoui |tMr«EIM 
MRDY or lfli«rrii^ti, Hu an cvtton.1 on ba^nt [1AT for um vlth CPU «rda 
■kkcu t tMT, ItlK. tSSK, MIK or IM b|i. pal crtf. Plaid upfradaUa. 
OstkiKl aiarii(iiiHIH .Ikna 4H bria MUraii ruch (ollnf namrr board CMT) 
niBO CPU r«lia" « castas l r'mr itoaM w.rraatr. 



TUKbO flrtaal SUk wrrwrnr. a«d MHaorr SUontfka AW»IMd wlis di. ivifeam. 
Prapal'i IZW:tS7S, 25M:$t95, 512K:}745, 1024K:$a95 

Omaulc ■un'oi a«i hMntllDi tio.oa U>.r> nanuli (iJ.go, a^llcaMa u»ard 
trat^ PMfCft«M. CaaUaf t cbK±» COO, paraofwl dMcki Huat ctear tar<ir* 
aUcBMl, rU. raiMMia a4d >% lalii ux. SM ti^ UocS la W tfi. Ossitf a«] 
SSHlKr Siao^ 



COMPUTER EXCELLENCE INC. 
P.O. BOX 8442 

CORAL SPRINGS, FL 33065 
<305) 752-B^ ^I 
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Spreadsheet 
Communications 



Word Processing 



Database 
Management 




FINALLY, 
A PORTABLE OFHCE 

(And A Way to Add IBM-PC/OS9 Compatibility) 



Are you trying to gel your personal and business 
affairs in order when your desk b out of order? 
A/c you attempting to operate swiftly, efficiently 
and effectively when your reports, records 
and data are buiied under a Matterhom 
ofdutter? 

Now, you can clean up your act, by cleaning 
up your desk — because we've put together 
a Corona Poitable Computer with Alpha 
Software's "Electric Desk". It's Corona's 
comprehensive, yet simple to use. 
Portable Office Package that allows 
you to concentrate on your work, 
instead of concentrating on liyiiig 
to find your work. 

You get the Corona PPC-400, the most 
advanced portable computer that's IBM * 
FK? compatible. It features a high 
resolution screen (twice the resolution 
of the IBM-PC), a 360K floppy disk 
diive and 256K RAM (with room 
for more drives and RAM). 
And, as you grow, the Corona 
PPC-400 will grow with you. 
It has expansion slots for 
additional PC boards, and 
built-in serial and parallel 
poric so you can add other 
peiipherals. 








SMOKE SIGNAL 



*1195 
AT A VERY 

SPECIAL PRICE 



OCOfOTKI 
dcMo (ysamt int. 



i 



3U36 Via Colinas, Wesdake \fUiage, CA 91362 
Phone (818) 68^^340 • TLX 910494-1965 



What's more, the system comes complete with 

"Electric Desk" ... a powerful, easy-toleam and 

use packzff that includes word procBsing, 

spreadsheets, database managemen t and 

communications (suggested retail value bS345). 

[BM/OS9 COMPATTBlE.nY — Smoke Signal 
offers a set of propams that brin^ com- 
patibility to your C>S9 computer. When 
you order a Corona PC. we can offer you 
two sets of programs at a veiy special price 
that provide compatibility between the Corona 
and your OS9 system. The first set of programs 
allows your Smoke Signal OS9 system to list 
the directory, print the contents of a file 
and copy files to and from a disk created 
on the Corona. The second set of 
programs allows the Corona to be used 
as a terminal on Smoke Signal and many 
other OS9 systems and to transmit tiks 
back and forth between systems. This 
permits the OS9 system to be used as a 
file server for the PC. Thee two sets of 
programs are normally sold by their 
authors for over S600. With the purchase 
of a Corona PC. we can offer them to 
you for just $199. 

HARD DISK AND DESK TOP PCs 

are available at very special prices 

available only to Mkro-loumal readers 

and Smoke Signal customers through 

Olober 15. Call (818) 889^340 for 

complete information on pricing and 

available conf\gur3 tions. 

in rC|et*«i» d tr«lnTMrk of IntcnwM*^ iBuwn MjcKn** Inc 



Oe«oter-8S 
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OOMPILSR EVALUATION SERVICES 
By: Ion Anderson 

The S.E. HEDIA IM.vlslon of CoMpnter 

Pabllshlbg Xnc . , 

is offering the foUovlng SUBSCBUER 

SERVICE: 

m nujsMsum nran 



Due CO the conetaoc and rapid updating aod 
eohaoceaeot of auaeroue coapllera, aod the 
dlffecaot utility, appeal, apaed, level of 
coaaualcaclon, aeaory uaage, etc., of different 
coapllara, Che foUovlog aervlcea are now being 
offered with periodic updaca*. 

Thli aarvlce, with updataa, wtU allow you who are 
wary or confuaed by the various clalaa of coapller 
vendora, an opportunity to review coaparlaona, 
coaaenta, benchaarlis, ate, concerning the aany 
different coapllera on the aarket, for the 6809 
mlcrocoaputer. Thua the aavlnga could far offaet 
the aaall coat of tlila service. 

Many have purchaaad coapllera aod then dlacowerad 
that tha particular coaptlar purchaaed either Is 
not tha taoat efficient for their purpoaas or doea 
not contain featuraa naceaaary for their 
application. Tbua the added expeoae of 
purchaalng additional coapller(a) or not balng 
abla to (uUy utilize the advantages of high level 
language coapllera becoaea too expensive. 

The following COKPILISS are reviewed initially, 
aore will be ravlawed, coapared and banchaarkad 
aa they bacosie available to the author: 



PASCAL 



GSPL WHIMSICAL PL/9 



Intclai Subscription - $ 39.95 

(Includes 1 year updates) 
Dpdstea for 1 yesr - $ 14.50 

S.E. MEDIA - C.P.I. 

5900 Cssssndrs Skltfa Sd. 

Bluon. Tn. 37343 

(615) 842-4601 



OS-9 ^ SOFTWARE 

SDISK— Standard disk driver module allows the 
use of 35, 40, or 80 track double sided drives with 
COCO OS-9 plus you can read/write/format the 
OS-9 foimats used by other OS-9 systems £29.95 

SDISK-fBOOrFIX— As above plus boot directly 
from a double sided diskette $35.95 

FILTER KIT «1— Eleven OS-9 utilities for "wild 
card" directoiy lists, copies, moves, deletes, 
sorts, etc. Now includes disk sector edit utility 
also. $29.95 ($31.95) 

FILTER KIT #2— Macgen command macro 
generator builds new commands by combining 
old ones wWh parameter substitution, 10 other 
utilities. $29.95 ($31.95) 

HACKER'S KIT #1— Disassembler and related 
utilities allow disassembly from memory, file. 
$24.95 ($26.95) 

PC-XFER UTILITIES —Utilities to read/write and 
format MS-DOS'" diskettes on CoCo under 
OS-9. Also transfer files between RS disk basic 
and OS-9 (requires sdisk). $45.00 

BOLD prices aia CoCo OS-9 formal disk, other for- 
mats (in parenthesis) specify formal and OS-9 level. 
All orders prepaid or COD, VISA and MasterCard 
accepted. Add S1.50 S&H on prepaid, COD actual 
cliarges added. 

SS-50C 
1 MEGABYTE RAM BOARD 

Full megabyte of ram with disable options to suit any 
SS-50 6809 system. High lallability.can replace static 
ram for a fraction of the cost, S895 for 2 Mhz or $995 
for 2.25 M hz board assembled, tested and fully popu- 
lated. (Add S6 shipping and Insurance, quantity dis- 
counts available.) 

D.P. Johnson, 7655 S.W. Cadarcrest St. 
Portland, OR 97223 (503)244-8152 

(For best service call between 9-11 AM Paclllc Time) 

OS-9 1* • iradsmoti or MicTOwm tna MoMmlt inc. 
U&-0OS Is a tfMtoma'Vaf Mtcroaall. Inc 
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64K SS-50 STATIC RAM 



.^<'- 



$119 



00 

<48K KIT) 




'^^IV/ 



^■4>|, 



*>* 



0>p 



o*> 



BLANK PC BOARD 

WITH DOCUMENTATION 

$45 



SUPPORT ICs * CAPS - $18.00 
FULL SOCKET SET - $15.00 



ASSEMBLED AND TESTED ADD $50 
FEATURES: 

• Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 

• Fully supports Extended Addressing. 

• 64K draws only approximately 600 MA. 



S6K 
64K 



S129 
$139 



200 NS RAMs are standard. (TOSHIBA makes TMM 2016s as fast as 100 NS. FOR 

YOUR HIGH SPEED APPLICATIONS.) 

Board is configured as 3-16K blocks and 8-2K blocks (within any 64K block) 

for maximum flexibility. 

2716 EPROMs may be installed anywhere on Board. 

Top 16K may be disabled in 2K blocks to avoid any I/O conflicts. 

One Board supports both RAM and EPROM. 

RAM supports 2MHZ operation at no extra charge! 

Board may be partially populated in 16K increments 

16K STATIC RAMS? 



CLOSE OUT SPECIAL 

WE HAVE DROPPED OUR 32K SS-SO STATIC 
RAM BOARD WHICH USED 2114 LOW POWER 
RAMS. WE WIUL SELL THE REMAININQ 
STOCK OF BLANK PCB'S WITH DATA FOR 
Sir.sa EA. THESE FORMERLY SOU) FOR (SO. 



The new 2K x 8. 24 PIN. static BAMs are the next generation ot h(gh density, high 
speed, low power, RAMs Pioneered by such companies as HITACHI and 
TOSHIBA, and soon to be second sourced by most major US manufacturers, 
these ultra low power pans, feature 2716 compatible pin out. Thus fully 
interchangeable ROM/RAM boards are at last a realfly. and you get BLINDING 
speed and LOW power thrown in for virtualty nothing 



Digital Research Computers 

(OF TEXAS) 
P.O. BOX 4«1Se5 . GARLAND, TEXAS 75048 . (214) 22S- 2309 



TERMS: Add 12 00 poslage We pay balance Order under $15 add 7SC 
nandling No C O weaccepi Vruartd MasterCharge Tex Fles addS% 
T»x ForeiQn orders (eicepiCanada) Bdtf20% P& H Orders over S50. add 
aSc lor rnsurance 
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SOFTWARE FOR 680x SYSTEMS 



SUPER SLEimi 0*SASS£ MBL EF» 
EACH SM'FLEX SI01-OS/> S100-UNIFLEX 
(WJECT-OM.T Mr*lans: EACM 190-n.O.OM.COCO 
>» «L» iJ > •■'wiB Kins an Odk wm liMt, nAili <»(, Unary saiiv 
cpniy <aoat.z.].s.s.8«302 *mv«n v tayKm):i v*m< 
OM owax ate po^^ F\£X tamn o«i«i •• into OS9 
COCO 005 (nlMto In eaoii t .z.9,s.a w«bcb vwivn (noi 2Srao«ai3t v*l 

CROSS-4SSEM BL ERS ORUE ASSEMBLERS, NOT MACRO SETS) 
EACH $50-FLEX,OS/9,UNIFLEX ANY 3 $100 ALL $200 
iD*aty )» iiK!i.»so2.uai.tao<.8aQs.aaaa.2i.no.MH».M&^»MS.CMi>a 

trua. noMv. fnt'lWv'xe oouoMnitilan in C. nWI tgadAvtoad ulUla 
ft-tat <nai taooai MUTCM IndkKM wl*i ai crau-UMinttwi (iw S300J 

□CeUQOMQ SMUlATOflS FOR POPULAR MIC nOCROCZSSOflS 
EACH S75-FLEX t100-OSy9 SBO-UNIFLEX 
OIJCCT-ONLV vmton*: EACH tSO-COCO FLEX.COCO OS/g 

H ai atl H) am^a pncnm nokOa (Mauandir lonnnMig, Gnary admna 

■{IKHy <» «MW1 . |14)«a(». £S02. eSOSOSA. ZtOFLEX 

ASSEMBLER CODE TRANSLATORS FOR 6S02. SBOOn. 6809 

eW2loB609 I7S-FLEII l&S-OS/S »0-UNIFI. X 

eSOWl to Ban t EBD9 WPO«i>«v«<d ISD-FLEX tT»-OS/S S«0-UNtFLEX 

FULL.SCREEN XBASIC PROGRAMS ariih cvraor acnif pi . 
AVAILABLE FOR FLEX. UNIFLEX, AND MSOOS 
DtSFlAY QEHEMTOfVDOClWENTOH tM w tourea, MS wlthoul 

MMLNQLISTSySTEM tioawaourca, tU wltnoul 

MVENTOnvwTTHMRP lirawfiourca, 150 Mlhoul 

THeuL* RASA S>>CJ£&>CET tlOOaVnco; SMaKhaul 



DISK AND XBASIC UTILirV PROGRAM LIBRARY 
tSD-FLEX f30-UNIFLEX/MSDOS 
•dt (Ml a«aor«. aal dnctty, avMki >nal* ai*« <)e «ik lore 
^^M V ^ j aoTi»ora< at SASC (WTVn. vaf BASC prtii^»T>. ate 
imFLEK iiCTi»n>«»»«onTcl an !>■■■ art/ 

CMOOEM TElfCOMMUMCATKWS PROGRAIil 
S I OO.FLEX.OS/9,UNtFLE)( 
OBJECT-ONLY mnlon*: EACH tKhFLEX.0S<1 
manj^ban <Mih vrwin nuaa. «a M^. ItOOCM?. xOK-xofT, ae 
kr COCO and rmCOOO, (tiv«6 ir*T^ COCO nsim ODi i4> ID zaoo Sua 



HARDWARE & SERVICES 

S.2S" DISKETTES 
EACH lO-PACK SI2.S0-SSSD(SSDD/OSDD S2a.DSOD 

Vw>arwnada.guaiv«Md lOOK 9ja**y. wit Tyvafi |ad«>, hub i«^, and la 

SS-SOC 2SCK 1.SMH2 MEMORY BOARDS 
EACH BLANK $80 ASSEMBLED AHDTESTEO tSSO 

. and iWair Ima: al pars iMUiy •va«aIM 



ADOmONA L SERVXXS FOR T>C COW\fTTKK3 COWWUHVTr 
CUSTOMZED PROGHAIMMQ 

«w w« a»o«u* any ^ tw (v^F>^ ^ao^vd ^ INa fK^«^«rwi or m otj 

far Bjcfi a^viiz^9> (fcvw^ upori tw ifwi^aMay or tia nioifltaBftn 
CONTRACT PROGRAMMMQ 
«« «Ml ovaa nvw pn^^wTO Of nigdry «i«^ ^ivaiv on a ayw baaia, 
a a«v4a w« naw«(nMiai lor ow Mwffy yMn^ tia onfx^n on wftntfi «« 



I d nvmiii^ n*4^ OEC BU. oa ^. ATtT. ana moai 
pcfliB bank o< mUmm^uMs. MAAng ttttVl . OCB, 2Sa MQZ. 
sum uan^fflaai w^v^ bv^Mga andcxvvv«r*toim.onarMB«B 
ia>^)ng n uia aom li>g « li* ■rx .'fc^Mi Maogixektforvatan: 
0« <#W9» lor <mvaa ifiV""'*v laiwiiar br tia^ctf j^matAdL 
CONSULTING 
wB orttr a wOi lanpa 0' bmlnasa and la^ncri ovwAng BflMcn, ncmong 
aamtwi, w^w, ita^wiq. and daalon, on any uoic ralAiad b comciutafi, 
tt»(4taroa|ora«M4)^ ca nonna^ tvaad Ufionlliia. IrvwL and •■panac 



Computer Syaletna ConaulUnta, Inc. 

1454 Latia Lana, Conyara, GA 30207 

Talaphona 404-463-I717 or 4S70 

Wa taka ordera al any Dme, but plaaaa 

plan diacussiona attar 6, If poaaibla. 

Contacl ua about catalog, daaler, diaeounia, and aarvlcea. 
MoBi programa In aource: giva eompular, OS, dlak aiza. 
25% oti multipla purchasea ot aam* program on ona order. 
VISA and MASTER CARD accepted: US funde only, pleaae. 
Add GA Mlea tax (II In CA) and S% ahlpplng. 

IXMinO an Tadml Srattni Cra^rtL OSit tm tfcpv^: coco (n Tanti 



SOFTWARES 
"'HARDCORE 



tFORTH'* 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801 . 6809. and 68000 



•• FORTH PROGRAMMING TOOLS from Ihe 68XXSX " 
•• FORTH specialists — gel Ihe besiH •" 

NOW AVAILABLE — A variety ol rom and disk FORTH systems to 
run on and/or do TARGET COMPILATION tor 

eeoQ, 6301 6801. 6809. 68000. 6060. ZeO 

Wnle or call lor information on a special system to 1 1 your require- 
ment 

Standard systems available tor these hardware— 

EPSON HX-20 rem system and larget compiler 

6809 rom aystoms for SS-50. EXORCiSER. STD, ETC. 

COLOR COMPUTER 

6800/6809 FLEX or EXORCISER disk systems. 

68000 rom based systems 

68000 CP/M-6eK disk systems. MODEL 11/12/16 

IFORTH is a relined versioo ot FORTH Interest Group standard 
FORTH, taster itian FIG-FORTH FORTH is both a compiler and 
an inlerpretof II executes orders of magriitudes faster than inter- 
prefive BASIC MORE IMPORTANT, CODE DEVELOPMENT 
AND TESTING is much, much lasler than complied languages 
such as PASCAL and C. It Software DEVELOPMENT COSTS are 
an imporiani ooncam for you, you need FORTH) 

llrmFORTH"* Is tor Ihe programmer who needs to squeeze the 
most into roms. II is a protesilooal profirammer's tool lor compact 
rommable code for com oiler applications. 

•■ ro*nx and temFORTM aia irMWnwvi o* Toiboi itemv>ww 
» FL£x la a tiadmMk ol Taci»«« Si a wi n C4*iait*« kv 



— > IFORTH SYSTEMS < - 

For all FLEX systems GIMIX, SW fP. SSB. or EXORcisor Specify 
5 or 6 Inch diskette, hardware type, and 6600 or 6809 

" IFORTH — extended tig FORTH (1 disk) $100 ($15) 

with lig line editor. 
■• IFORTH + — more! (3 S" or 2 6' disks) $250 ($25) 

adds screen editor, assembler, extended data types, utilities, 

?am«s, and debuoQi'ig aids 
RS-80 COLORFORtH — available from The Micro Worta 
■■ firm FORTH — 6809 only. $350 ($10) 

For target compilations lo rommable code 
Aulomaiicalty deletes unused code. Includes HOST system 
sou ce and target nucleus source. No royalty on targets Re- 
quires but does not include IFORTH ■•- . 
" FORTH PROGRAMMING AIDS — elaborate decompiler$150 

" IFORTH tor HX-20. in 16K roms tor expansion unit or replace 
BASIC $170 

•• IF0RTH«8K tor CP M-fiOK V disk sysleoi $290 

Makes Model 16 a super software devetopment system 

" Nautilus Systems Cross Compiler 

— Hequtres IFORTH -i- HOST \ al least one TARGET 

— HOST svsteni code (6809 or 66000) $200 

— TARGET source code: 6a00$200. 6301/6601— $200 
same plus HX-20 extensions — $300 

6809— $300. 6060'780-«00, 680Q(K.S350 

Manuals svailaBle Mp«raie>y — pnca in ( ) 
Add Sfr system for shipping. St S tor foreign a r 



TALBOT MICROSYSTEMS 1927 Curtis Ave.. Redondo Beach. CA 90276 (213) 376 9941 
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WINDRUSH MICRO SYSTEMS 



UPROM II 

T2»Mj I2ri6j lZil6< iifU/imt>, 
MCH(876i/«, 12764/2764)1, 12Sfr4, 
177128/2rT2«A« ind I272»6. 

I'Irlvl, T*T«R«t, iMloioreli. 

WO ^MOMLltT HOCULtt IIHU1»»1 

Ttl-»OI.T [WOm MI WOT IUf»jaT^i& 

INTEL** 1nt4l1a««>i ftrP«rMafn« 
(1a> t«0tv«*fllt4 lor lnt«l 

ir«A^ 27m «nd 27254 «*«ii«i. 
Inl»lll9w«f Programing r«AK «t 
IM Avtrogo progrwoing tiao of « 
I7A4 fr«* 7 ■1mi1*« to 1 flinulv 
, ^m tS i«coo«t CitfMtor rLEf) «llfi 

^-lI H g'««tVy tBprou*0 r»u«oUitr. 

|My H FmUx «ncli>i«d frOd «1tt> S* 

I ^^ U«t ribbon cobl* lor cvtr»«ctt«n 

^^^^ ' ^1 to thi h«i1 co«ut«f K6t21 fix 

^^^^^^^^ N(M09 loflifor* for #ttl ■n*) 0»< 

(Ltvcl 1 or i, Voriloo 1.2). 

IIMII eiic riLC 0lf«BI (.0«l)«r 
■ uMltod «lth FLEX, NMS a*^ 0S9. 

■onu 4riiw*n ■Oitvort prcwifltl th* loUwtng ffCtUHttl 

t. tItL ....< A t»l*CI*d or** of th* buffer alth « HEX ckor. 

b. HOVI ....... blockk of Hal*. 

C, »WP Ih« »b1f«r In Hli pnd 4SCII. 

d. FIM A sirtng of bytvi In I«l« buffar. 

ff. txAJllM£/Ci>AMM . ih* cor^tmta of lh« «uffor. 

f. CiC 4htck»oR • itlvcted •'«« of the bu1f*r. 

g. COPf *. « toloeittf oroo of on ipmh Into ih* buffor. 

h. vtil'T ......... « Bttictvd orta ol an CWON agafnit Ih* &wff«r. 

f. »ltO«tAli ........ a taliiiatf *r»a of «n Inofl mMh data In (ha buffar. 

i. leLfCt « iMw (MtOA IrP* (ratvrn to tvpai aa(«<>. 

h. BNirtl .......... tria lyataa apnltor. 

I RETuaM ......... 1o lh« oearatl/ig irit 

I. ttnan ........ anr OOS uillfty tonlr in ri.£i and Off v«rBloni>. 

fCEI AM 019 VE>SIO«S AWtHtLE MOH <IHU. IM/WPK CONtJICl MS »im(T. 




PL/9 



» frlandty )rif«r-«cflv innlfMa— i i vhara yew Kaoa IMSTAMT accaii to tha 
E4Uor< |h« Cc^»1ltr^ and I K« Traca-«*OuM*r, attic*, aaangtl otnar 
thingtrf c«n ilngit «lt» iKa orofra* a lOWCC MAa at a li*a. Tow alao 
Ka«i olr#<i accaii to any fLEM Mi1lfl7 wtf your a/ti«« MOfiltor. 

• m» f»B9* h^HJiAi orf*M>ad M • twi«Plat vHh ptdfffjr rf viaavlai. 

- rait UmLl »!>%% ctWlltr pp««,i(Ba M of CQPPACF and FAST MOV McHn* 
coda ouivwi 9«r ■I'hia «tib no rwi-llaa owrttaads c Ucanta 1a«l. 

• fsilly (O^attbla *i1il. ISC tail adilor foraal dlth fUii. 

• (ignad WHJ i^tignvdT tTTIt dnfl lUmUtt, USbU flutln* palm RUl^l, 

• V«ciori Itlr^la diaantton arrayi) and OOlniart ar« lupportvd. 

• ftathnatlcal axpraitlonkt <•), (•>, l*}, tn^ aoOului (V)> nagat Ion (-) 

• tpipriatlon tvaluatori: I*)^ <*>>, (<)^ (yi, <>•), (<>} 

• Bit ovaralori: (M»)^ (0I)« <EMt/igR], (NOD, tiHim, tiHAP) 

• logUal OParalori; (.AIM), (.OIt>« C.IOt/lOA) 

■ Cootrvl ■la1«««n||j If ..tME«l..lLfE4 IF . .CASE! . .CAStZ. .CLU , «f«lM..CII», 
HHUE..« RlPEAT..JM11L< ItMAI. .rMEVlR, CAlt. Jlff»« VITUM* HRElUC. «0». 

• Ilr«et accati to (ACCA). UC»)« C4CC»)« (IRU), (CCr) mrC ISTACKl. 

• fUUT «*«pert4 Iha NCfrl09 R(||l, M], FlR4< IJH^ SMI, SUl2. and Sut) 
vtctoffl. vrlting a tal f-ttart Ing (fro* »9«ar-t«) program thai uiit ANT, 
or Au^ of lAa HCMO Intarrypu la an abMtbtt v*»Oi 

• RacAlna coda aar Im mito»«di»it In 1h« erogfoa vU (fia 'UN' ti«ia«ant. Thla 
anattlai rou to coda critical rotitlnai In aiiaobly l»«9u«ga aod anbad 1ha« 
In tha PL/9 orograa Ctaa 'MACC* for dataUa). 

• Procadura* «ay br paiaad and aaf ratum varlablaa. Thla «akai ti»a*i 
fimetlona wM<:h baAavf *» ftdHgh Ihay Marc an Iniagral part of PV/V. 

• Savaral fully dsciManiad Library orocadur* aotfulai ara auMllad: JOilAl, 
a[TIQ, NAlBIO, NEHIC, fUilO, SCJPACk* SIRIUVS, OAST^IM, and REALCOM. 

'... TKU H THE mil E^flCIEIfT CQWIilR 1 HAVE FCWt Ifl tAH." 

Buol44 irom dori. AnthrtcAt lilt Ultr flotaft tOluSA ^^^ *bi. toad w tmy Mlf*? 



MACE/XMACE/ASM05 

AH o1 thaaa Praducti faaturt a highly proAtcllva anvlrs^ni whara tr>a 
adttor and th« ata>*bl«r raalda In baaory logaihar. Cone ar* fha daya o1 
ladlua dlik load and lavf ODiracloni vhlia you mrt dabugglng yotir coda. 

• frimdly Intvr«a<:i1wa fnv1ron««ni whara yow hava Imtant accat* to \f>9 
Editor tno thi Aftiaaftlar, flex uillltiai and l>Owr aytta* bonttor. 

» «>A(E can alae aro*ica AimoCa (CEh itai«*anti) for n./9 «1tk tha 
attioAly languaga towrca paiaad to tha m^tlMt ai <;pwin tt. 

• IMA(E i% a crvat vttMAiar far tha 6900/1/2/)/t and fkcv^ia 1h« aitandad 
nlci St tM 6S03. 



• AffQl la a croii atitflbltr tor ma bKM. 



D-BUG 



LOOK]i«C for a linger it ao tracar wtd ulnl Ir^-ilna dlaaaaa^lar that la «aay 
to ua«T7 Look to furihar, yoo hava fourm It. Thli pachaga la Idaat lor 
I hoia taaU «»««bl> languoga prograa dabwggl'^ aataleni. fr-VUC oecuplaa 
laaa than Ak (Including Ita atack and «arlabtaa> and aar Da loadad artywhcra 
In aaaory. All yOU do la LVA» If. Alft |f ond HI <U col VCU> only). 



McCOSH C 



ffita la ai coaplala a *C* capillar at rov mUI find an any 0Dar«|1ptg t7'sta« 
for tha 6809. it it coaciatair cowailtola wli>> IMti Vll and on^y lack* 
'bt|-flald»' (•ttilth «r« of llitla pr«eltt«l waa In wi «-«1t aorldtK 



f rodiK at rary a'flcant at»a«Dly i 
ae^ta optlcrtally tntarlaavad at ci 



tcurca owtOui «lth tM 



• ■uHl-'ln wilBlitr hIEI ahort«A OttJtCl toda by about UX. 

* |t«partt 1<ntcr(«atf*il ataaably langutga pTDgraai. 

* IMCKJfrEt ita own attM()l.ar. tha fSC rtlotallng aaaaaOlar It only r«4ulrad 
If yov «af>1 to gatarvta your o«n Hbrarlaa. 

• Tha pra-procaaaprj t^Vllar, eotlaiaar, ataa^iar and loadar all run 
1nd«9««Manily ar undar tha 'CC* aaacullwa. *CC' aalat c^vKfng a vrogrui 
to tiacutabla oOlact aa alaPla aa typing In *CC,HELLO.C <AETtWW>«. 



IEEE -488 



■ ILPPOiTt ALL niMIHL H»Ei Of ThC tEII*4H (1471/*} HJI VCC If I CAT ] OH 1 

' Talhar • lariat Poll • lAngia or Dwal prl»ory bddrata 

• Llatabar - rkraiitt Rail - lacondary lOdrttt 

- Syata* ontroll«r - Srow Trlggar - Till only ... Llatan onty 

• Fully docuaarrcM vita a cobotaia raprint oT tha tttm^M aralcla on th* 
itlt ftut and the Motorola pubtlcatlon 'gotilng aboard tha lUE dua'. 

• LDM laval MtaAly tangwiig a driwvra wiHabla lor MOO^ WOl* MOZ* ««05« 
MOO AAd 609 ara fl\«eilad In in* tor* of llailnga, A co^ilata back to 
bick tait prograa la alto a«M)t1ad In ih« for* of ■ Uiitng. TTirta 
drivara hova bacn r^tanalvaly taatad and *f* flUARAWTCfP to work. 

• Slngla S-30 board (4, « of 16 addratvai par eon), fully ao<:k»1ad, gold 
platid but c<Pin«ciara and liee Intarlaca cabla atta^ly. 



PRICES 

i-vjt lUOT rut onir) > rs.w 

■UIC I6«W rUl only) « 75.00 

auce (6aW FLU only) I n.oo 

tlUK ■UO' rtia aMr> > W.OO 

n./< turn ILil only) iiM.eo 

'<' lUn rui o«ir) im.OO 

IEIt-«M •li» Itll-Ut c*li aiii^ly sm.OO 

unCA-ll/U villi on* V«rf1«n of Mfta.rt (ns ctbl* or Incorfoc.) .. 1199,00 

unCA-ll/C .t *«vf bvl co.vl.tt .Ith tobl. ma S-XI ipt.rf.ct .,..IS4).0a 

CMLE 3* t.1lt-4f-fltt }0 *ar C.61* alth |K comtctorii t )).M 

S-M KT IS-90 In.rlaci lor UMOIKll tlH.OO 

EXDI IHT Notorel. ilO«9wi (IXHiU.r) 1nt«rU<» for UPCW-II ... tlH.OO 

UFROH sit SofTM.r. drlv.ri tor 2nd w.r.ttng irttt*. 

Slhoclfy >LII or OSf MO dllk llial • 31.00 

UWOM SIC Aii.Rblr lanouaoi tourca (contact ui diract) 

> L t . » 1 I I > I II { 1, U > t « I » II « 1 L . 8 I T > t t 

If rat; CUO. P.^Mint &r lAt'l Honay drdtr. vri. or lullii|.<aB alu ICdtlad. 

WE STOCK THC FOLLOWWQ COMMfNIES PRODUCTS: 
Qa«X.S3b, FHL. MCKMHIMC T9C. LUCKMTA, LLOYD !«, 

rUI <t*> 1l . Ir«IM.rh or Tfchnlc.t lyila.. Cori.hi I ( vst t, «-f (!*} 1l a 

lri4turk sf lltcroMr. Vttttm Cororit ton, wot (lal «ri [lOtcttar (la) 
irt tradturVi or Het.f0la tncerpqr.Ti4. 



WORSTEAD LABORATORIES. NORTH WALSHAM, 
NORFOLK, ENGLAND. NR28 9SA. 

TEL: 44 (002) 404080 
TLX: 975540 WMICRO O 
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OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My: Master Charge O — VISA Q 

Card at _ Exp. Dale 

For □ 1-Year O 2 Years □ 3 Years 



Enclosed: $ 



Name- 



Streeu 
City 



.State _ 



-Zip- 



My Computer Is: 



SiAscrlptkMi Ratvs 
(Effectiy« March }, 198$) 

U.S.A.: t Tmt S24.50, 7 Ymts $42.50, 3 Ymt* S64.S0 

* Far«lgn Strlxw: AM t12.00 ptr Ymt to USA frUx. 

* Forslgn Alr«a>l: AM SM-OO par Ymt to USA PrU». 

* Oaada a Mnloo: Add t 9.S0 par Ymt to USA Prtcm. 

* U.S. Cwr— cy Gmak or Oart Draim on a USA 



66 Mcro Journal 

9800 Ckmandr* Smllh Hd. 

Hliaon, IN 37343 




(615)842-4600 



TELEX Skt 414 PVT BTN 



STAR-DOS LEVEL I 

Whenever a new DOS is iniroduced, there's 
always the problem ol developing software to 
work with it. So we did it the opposite way — we 
analyzed the requirements of software that 
already exists and developed a DOS that met 
them... and exceeded them! The result is STAR 
DOS Level I. a new DOS lor 6809 systems, ideal 
for single-user industrial, control, and advanced 
hobbyist applications. This includes SS SO 
systems and single-board computers from a 
variety of vendors. 

Level I is compatible with most current 6809 
hardwaie and software On the hardware side, it 
allows up to ten floppy or Winchester drives with 
appropriate controllers. On the software side, it 
runs existing 6809 software from all the major 
6809 software suppliers, including TSC, Star- 
Kits, Introl, and others. 

Write or call for more information. STAR 
KITS Software Systems Corporation. P.O. Box 
209, Mt. Kisco N.Y. 10549 (914) 241-0287. 




TARKITS" 



AICERSOM QOrv/TTR CONSUL TANTS 
Assoctotvs 



Ron Anderson, respected author and columnist 
for 68 MICRO JOURNAL announces the Anderson 
Coaputer Consultants i Associates, a con- 
sultlng firm dealing primarily In 6aXX(X) 
software design. Our wide experience In 
designing 6809 based control systems for 
machine tools Is now available on a 
consultation basis- 

Our experience Includes programming 
machine control functions, signal analysis, 
multi-axis servo control (CNO and general 
software design and development. We Have 
extensive experience In Instrumentation and 
analysis of specialized software. We support 
all popular languages pertaining to the 6809 
and other 68XX(X) processors- 

If you are a manufacturer of a control or 
measuring package that you believe could 
benefit from efficient software, write or call 
Ron Anderson. The fact that any calculation 
you can do with pencil and paper, can l>e done 
much better with a microcomputer. We will be 
happy to review your problem and offer a 
modern, state-of-the-art microcomputer 
solution. We can do the entire Job or work 
with your software or hardware engineers. 

Anderson Co^utar Oonsultants i Associates 

3540 Sturbridge Oxm-t 

Ann Arbor. Ml 4SI(R 
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INDUSTRIAL PASCAL 
FORTHE680CX) 



If you're looking for a language to 
write real-time process control software, 
look no further. With the rising cost of 
labor, it is becoming critical that a high 
level language be used whenever possi- 
ble. Find out why over 1400 companies 
have switched to OmegaSoft Pascal for 
their demanding applications. 

OmegaSoft Pascal takes the Pascal 
framework and expands the basic data 
types, operators, functions, and memory 
allocation to fit the needs of real-time 
systems. These additions fit in the same 
structure as Pascal and enhance its use- 
fulness without impairing the excellent 
readability, ease of maintenance, and 
structured design. 

The compiler generates assembly lan- 
guage for assembly and link to run on 
the target system. Since a true relocat- 
ing assembler and linking loader is 
used, only those runtime modules re- 
quired are automatically linked in, pro- 
viding a smaller object module than 
other compilers. 

Large Pascal programs can be split up 
into conveniently sized modules to 
speed the development process. Proce- 
dures, functions, and variables can be 
referenced between Pascal modules and 
assembly language modules by using 
Pascal directives. 

The compiler package includes an in- 
teractive, symbolic debugger. The de- 



T.M. OmeoaSoll is a Irademark o( CerliMed Software Corpor- 
ation. OSWBSOOO Is a Irademark of MtCroware. VERSAdos la 
a irademark of Motorola. CP/M-fiSK is a Irademark of ORl. 
UNIX is a trademark of Sell Labs, 



bugger allows setting of breakpoints, 
displaying and changing variables, and 
tracing statements. Debugging can also 
be done at the assembly language level 
when needed. The debugger allows very 
fast turnaround for programs to be run 
on the host system (target system de- 
bugger coming soon). 

The compiler package also includes a 
full relocatable macro assembler and 
linking loader. These are designed to 
support the compiler but may also be us- 
ed for general assembly language devel- 
opment. In addition, a full screen editor 
is included which can be used with a va- 
riety of intelligent terminals. 

Full source code is included for the 
runtime library, the debugger, the screen 
editor, and other support utilities. 

Versions to run under the OS-9/68000 
and VERSAdos operating systems are 
currently available to end-users and 
OEM's. End user price is $900 (domestic) 
or $925 (international). A version for 
CP/M-68K is available for OEM use, with 
OEM versions for UNIX type operating 
systems to follow. 

Similar products to run on a 6809 sys- 
tem and generate 6809 code are also 
available for most major 6809 operating 
systems. 



CERTIFIED SOFTWARE 
CORPORATION 

616 Camino Caballo. Nipomo, CA 93444 
Telephone: (805) 349-0202; Telex: 467013 
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TRS-80>^ MOO I, III. COCO, TI99/4a 
TMEX 1000. OSBORNE, others 

GOLD PLUG - 80 

Elimmate disk reboots and data loss due to oxi- 
dized contacts at the card edge conneclors. 
GOLD PLUG 80 solOers to the boanj edge con- 
nectof Use your existing caMes. (if gold plated) 



GOLD PLUG 80 Mod 1 (6) 
Keytx>ard/El(modl) 
Individual connectors ■«> 


s4<-95 ^54:95 


'\^ ^-'^ -9-95- 


COCO Osk Module (2) * ^- 
Ground tab extensions '* 


5- i<,.95 -»«:es- 
iNCL toe 


Disk Dnves (all R S ) 
GokJ Disk Cable 2 Onve 


T.9S _9;9S» 

29.95 


Four Dnve Cable 


Q^*Xo* 39,95 


GOLD PLUG 80 Mod III (6) 

Internal 2 Dnve Cable 


Vtv^^ 2995 


Mod III Expansion port 
USA shipping $^45 
Foretgn $7 


10.95 

Can/Mex S4. 

TEXAS 5% TAX 



Aak your favorite dealer or order direct 

E.A.P. CO. 

PO BOX 14 
O.M...U.. KELLER. TEXAS 7624« 
(8 1 7) 49B-4242 MC/VISA 

+ trademark Tandy Corp 



6809E SYSTEM DEVELOPMENT 




The XPNORS proiecc caid extends Che CoCo cartndge port 
signals to wirewrap pins on Che boccom of a 40 pin disk contioller/ 
ROM pak conneccor )n one efficienc package you have over 24 
square inches of drilled card for inceHace or prototype circuics 
plus Che full cn-line power of any sofcware developmenc languages 
or cools available for Che CoCo. Made wich all the right stuff. 
Assembled, tested and ready to run. Shiown above with our 
cartridge port card guide, 

XPNDRS S39.95eachor2/S76 
SuperGuide S 3.95 eacf) 

To order, or for technical informabion. cati (206) 782-6609, 
weekdays B am to noon We pay shipping on prepaid orders. For 
immediate shipment send check, money order or the number and 
e«pir«cion date of your VISA or MASTEnCARD to: 

•osoTic^Y^jiic «osrtriNB 

BOX 30607 SEATTLE. WA 96103 



Mm 

Computer Engineers 



19535 NEOU5AN l*ORTUN D, OB 97230 (USA) 

PHONE: (503) «6«-1097 •TILEX 910 3«0 »44a UOVD I O 

K-BAStC 1$ a TSC XBAStC (XPC) compatible COMPILER 

lor OS9 & FLEX, price $199 

Here ot kisf is o compiler for BASIC lt«al wtll compile aU your 
xa^S^C orogfoms. K-BIVSC cavittBi TSCj XBASJC ond XPC pio 
grorrtf to rrxjchlne code K-BAS)C is reody now to save you 
mooev ond lime by teaching your compufei toe 

* Think Foster • Conserve Memory • 8e Ftleitdliei 

Call IS03) 664-1097 lor our CATALOG. 
We hove nMiny progrorm tor Mrtouf (ottwora d«v»top<rnl 

DO'- 

Micro SASfC Ibr OS9 . $149 

A sftxjctured mirco BASIC tor general system corttal (edtLilng: 
Parameter pOMlno. 10 strlrio vorloblss. 26 nurr)erlc vortobles, 
sut>root<r>es, nested loop^ Inlerodive I/O, seauenttal flies, and 
tlrtw vortobles C^or opplicalkyis ewcuflng in ttie bocJigioond re- 
quired to execute |;^oce<^es such as disk or lile bodcupsj In- 
cludes ttie SEARCH ond RESCUE UnuiTlES" (For OS9 ONLY) 



SEARCH and RESCUE UTILITIES '" 

forOS9. S36 

A super dliectoiy search utility CXitput may be P'ped la the in- 
cluded uttlrttes to perform flie- COPIES. DELETES. MOVES. LISIIOJG 
(pagination), and FLTERIf^ Sorrte liltenr>o uttlity programs ore 
ma^tletX al interest is )h« FLE DATE CHECIQNG utiHttes VOUNGER 
ond DRAFT (level 2} (for OS9 Level 1 orxJ 2) 



PATCH" 

Modertf Comnfunlcatlons tor OS9... $39 

PATCH ISO modem communlciatloci program for OS9 featuring; 
KEV MACROS. ASCII TEXT AND BlfOWV FILE UP/DOWN LOADING. 
P(?INTER COPV. and HELP MENUS. We use It several times each 
day VD«^ ow T?LEX serv)ce PATCH is ConveoJen t and e<BV to use. 
Key rrxxvos nxjy be pre-slored and looded at any time 



CRASMB'" 

CROSS ASSEMPlfR PACKAGE 

tor OS9 A FLEX... oil tor $399 

Motorola CPUs. ..$150 

Intel CPU's ...$150. Ottien . . . $150 

CRASMB is me highly ocdalmed croa assembler pu±0(|B for 

OS9 and Fl£X syflemi It turrw your 68W oompitB* into a de- 

vek^xTient sfottoo for ttwse target CPUs: 

6600 6801 6804 6605 6609 6811 6S02 
TWO 1802 6046 8051 6080 BOBS 26 260 
(66000 16/32 bit cross assembler . $249) 

CRASMB features: Mocfo& Corxjitkinals. Long symtxjl r>ames. 
S/mboi Cfoss reference tables. Object code In 4 tormots (OS9. 
FLEX. S-1-S9. IhflEL HEX) 



tfSA; 

{nglond: 



Viyi, MC, •00. CHICKS ACCEFm) 
liCrrD I/O (S03 »M 1097), U.MEOIA law SM 68001 

VtvowDylOSO: 423425 1. vykvlmrt) (0*92 4aS1«9) 

{oct<«> Ctm^Jtm |«$ 2$ TH\. K*H U I WH |0«20> 6741] 
Pod* Oodlo awaibnics 1344 9111) 



>r.M9C oa StUKHanilSsaK uridti 

fWOiCX*9^ emCiM»CULSI?aafQa«njt>aruOtOK) 

CS94 - o/t^aamra. HfXko - otIX 
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CORN 



C OWBUTKH 



>us CUSS - EtTa - iBsuBLXD k testkd 

atftckabla Modal** IIT *kT 

30 i^> ponn guppLT «/{aB 

«/01ak pretMt r*l*r 350.00 400.00 

DISI CiBIRT a/rat*. k e*bl** 

!•■* DIITO 300.00 350.00 

Monu MOD, ■ as-5oe, a aa-ioe 

mil (nttOD 339.00 335.00 

Itaa Bar* KIT A» 

IT3 - IHnMOPT THUtR 

1, 10, 100 »*r *•«. 10.05 39.05 3B.S3 

PM - itmLLionrr potr svttkk 

81*|1* board eov)ut.39.05 114.05 139. SS 
DPIA - 011*1 PI* p*r*ll*l port, 

4 batf*r*d I/Oa 34.05 00.05 19,09 

Zll» - SBt**d*cl Addr***lB( 

BAOD K*B. PI« port 30.05 S0.B5 BO. 09 
MB* - HCTTUB 804fU) 8a-90c 

a/BAOD (*D. B4.05 140.05 100.99 

Pits - IBSt PKM DIBK 

31, 37B4 BPROMa 30.95 70.95 109.09 

rMB - flravara davalopnaot 

3, ax bloeka 30.09 S4.09 114.05 

XMFH - 37B4 FROM buraar adapt. 

lor 3718 BORMZR 19.95 

CHKIUnr Karboard a/Cablkat 

•« k*r eapaeltl*a 349.05 

TAXIM 13", IB Hba MOHITOH OREKR 148.BS 

AMBER 150.05 

4 HOOULE CAsmrr - uatlalabad 150.00 

POnR aOPPLT v/diak protact 250.00 

[♦♦♦ MMMMMM » MMMM | 

Color Computer 

MraOtlm - 30 NBa MoBocbrosa 

Tidao drlvar 15.00 30.00 

CC30 POST BC8 a/povar auppl^ 

S 88-30. 3 Cart 189.05 199.09 

POru BOS a aaltcbad oi>tl*t* 

trtail*at aiappraaatoa 30.05 30.05 

1S'132 3-aaltebad porta 

for abo** ADO *30.00 «39.00 

Write for PHEE Catalog 

ADO SJ.OO S(M PZH ORDER 
WIS. ADO i\ SALtS TAX 

y. 11931 W. Bluemound Road 

f^ MILWAUKEE. WIS. 53226 

vw (414)257-0300 



68' MICRO JOURNAL 

Dlak-l Fileaorc, Hlnlcat, Hinlcopy, Hlnltaa, 
**Lifeciae, ••Poetry, ••Foodllat, ••Diet. 

Dlak-2 Diakcdll w/ Inat.fc flxea, Friae, •Fraod, 
♦•Snoopy, ••Football, ••He«pa«m,**l.ifetiBe 

Dlak-3 CbugOV, Seel. SecZ, Find, Table2, Intcxt, 
Dlak-cxp, •Dlakaavc. 

Dlak-4 Hailing Frograa, •Flnddat, •Change, 
•Teatdlak. 

dlk-3 •diskfix 1, •diskfix 2, ••letter, ••lovesicn, 
••blackjak. ••bowling. 

Dlak-6 ••Purchaac Order, Index (Dlak file Indx) 

Dlak-7 Linking Loader, Rload, Harkneaa 

Dlak-B Crteat, Lanpher (Hay 82) 

Dlak-9 Datecopy, DlakflxS (Aug 82) 

Dlak-10 Hoae Accounting (July 82) 

Dlak-ll Dlaaenbler (June 8A) 

Dlak-12 Kodea68 (Hay 84) 

Dlak-13 •lnltaf68, TeatafbB, •Cleanup, •Dakalign, 
Help, Date.Txt 

Dlak'l4 •inlt, •Teat, •Teralnal, •FlDd, •Dlakcdlt, 
Inlt.Llb 

Dlak-13 KodeaS * Updatea (Dec. 8A Cllcbrlat) to 
HodeaS (April 8« Co^ ) 

Dlak-t6 Copy.Txt, Copy. Doc, Cat.Txt, Cat. Doc 

DlBk-17 Hatch Utility, RATBAS (A Baalc Preproceaaor) 
June 8 J 

Dl*k-lS Parae.Mod, Slxc.Qitd (Sept. 8S Araatrong) , 
CHOCOOe, CKD.Txt (Sept. 8S Spray) 

Dlak-19 Clock, Date, Copy, Cat, FOEL.Aaa & Doc, 
Error*. Sya, Do, Log.Aaa h Doc. 

Dl*k-20 UNIX Like Toola (July & Sept. 83 Taylor & 
Cllchrlat). Dr*gon.C, Crep.C, LS.C, FOUNF.C 



Thla 1* * reeder aervlce 0I1.TI No Warranty Is 
offered or lapllcd, they are •■ rcc«l*«4 by 'M' 
Micro Jearaal . and are for reader convenience ONLY 
(aoae HAY Include fixes or patchea). Alao 6800 and 
6809 progr*a* *re alxed, *a each la fairly alaple 
(aoatly) to convert to the other. 

PRICE; 8" Disk $14.93 - 5" Disk. $12.93 

b8r Micro Joaraal 

59U0 Cassaadra Smith Rd . 

Hlxson. Tn. 37343 

(613)842M«00 

• Indlcatea 6800 

•* Indicate* BASIC SUTPC or TSC 

6809 no lndlc*tor. 



MASTER CARD - VISA Accepted 
Foreign — add IDS for Surface 
or zn for Aim 
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PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 

The proven PT-69 Smgie Board Computer line is expanding! Systems now can t>« Winchtester or tloppy-based Available also m a smaller 
cabinet wilboul drives lor dedicated systems wRb no mass storage requirements. 

* 1 MHZ 6609E Processor ' 2 RS 232 Serial Ports <68S0) * 2 6-bit Parallel Ports (6B2t] 

* Time-of-Day ClocK ' 56K RAM 2K/4K EPROM • • 2797 Floppy Disk Controller 




Custom Dasign inquiiHK t^Mnyr>« 



WlncriHMi S)n)*>n 

•PIS9XT wiHOffisrr* svsrrn tii9S46 

iMClaan SnrSWtKhBlar Or Ivi. 2 40 track DS/00 Drivn. 
P«rallal Prtnlar Inlvloca • cltolce si OS/9 or SIAR- DOS 

• PieSSPflOPPY 5Y5IFM J«95 95 

incluita PI69 Btard. 7 DS/00 iO I AX & 1/1* drtTn. cafttMt, 
svltcMng powar suppty. OS/9 or SlkR-OOS 




rioppr SrtMm 

>PI-69A ASSfnillOft IlSIfO BOMO 

• OS/9 

• siah-oos 



t?79 00 
1 2 00. 00 
} bOOO 



ViSA/MASTEnCARD/CHECK/COD 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd . Suite 870 

Manella. Georgia 30067 

Telex 1880584 



404/973-004Z 



CML CM WWTE FOR *00<TICSM«1. 
CONFtCcnaTIONS 



XDMS 

Data Management System 




MBa-rCHBa-TER ikppllvcJ Business Bymtrntnt 
Pitt 0««lcf loi 1*7 

■ narctifl N4nor. M.T. 1091* 



T^« XDHS n«t« H4Pi4g*'n«nr £f«Etm it Av«iL4blv in thrmm l«'V«Ll4' llcK 
■ •v»L tncluCt» 1K« XDHI nucltuv, VHOtH utility tn« tr«t«fl» DoCwM«nt4tl«A 
for ]•*•! I]]* ZDKI i« on« o# tA« i»o*t piovr'ul vytliat 4v«il«eilf for 
tlOf computsrt «Aa mtf b» u«*d for • wid* ««ri«l]r of A^plicationt. IDNI 
utort •■• r«4iil«r«d t*i our d4t«ft«** to ■•rati* di»trifeutlon of product 
«Anawnc««)«nl« «Ad w4ltd*lt»A of ubrt up|r44)at «mN ^«irit«n*nc* r*^u««t«> 

XDHI Livsl I cort»i»tt of DKFIHC. OPDATB and ftCPORT t«cilit)it. 
Thji Ifval i« inlandsd «« An 'flntry )■«•!' tr«l«m and parmiti snlry 4nd 
raportkng of d4t« in 4 *t4bul4r' b»«i«« Tm RBPORT 44Cilily «upport» 
r*coid 4nd <l«ld **l«ctloni <I«I4 «t«rg». tor ting > Una C4lcul4t lont* 
cilwnri tot4lt 4rid r»»orl fitling. CiAlrol i« wi4 4 tnfli«h*lik« I4t(u4gf 
xMch i« up>4fd c«Mp4ti»lf Mith !•«■] IC. XDNV Laval 1 ..... . •13f.V9 

L«*«L II 444t to |.«v»] I Ih* p«M«rfw] OSHiRATK facilitk'. Thi» t4clLitr 
(•«t b« troL*9ht of 4t 4 p«n4r4l «iU procswtor whlth cja prodVE* r»por(«« 
'•mt 4nd form ]«tl«rt 4* «•■! 4* fll« output Mhilh may Oo ri-lnlHul to 
IM f4Cllll)r. OBMKRATS m^j Bii usad m cofliplai prscstf Irg 49P it cations 
4nft It can t rolled kv 4 En9h*h*'hli* c«<nm4n4 l4rtgu4ga which •nca*94tl«t 
th4l uttd Biy Laval I. XDNV l.a««l ll ...... * * . . .altf.99 

3CPMS S^mvmi III 

Laval HI l»el«da* all af la«al II ^lua « «a1 of Mva'vl DHf Vtllitiaa. 
Titaaa utllit>ai ara daaignatf to aid Hi tha davalopmont and Mtatntonanca 
of uaat appliE4tlap« and parAiit modtfUJtla» of IDNff tyataa p4r4Btalaiat 
input and output of IDHS lltat. ditplar *nd ModlflcallOA of fUa formal* 
gralitilC djaplay af ni/marual data and othar functlant. La«al III tt 
inlandad for advancad XDN9 uaar*. XDN« Laval III ....... . t3««.f9 

XEHI Sytlan Eocuinvntatlon only lalO. cradit toward Purch«aal. . .1 2«.«9 

Tha X ACC Oanaral Accounting tyatai» t* davlf^'^ ^or vpall tualnatt 
anvironwanta o< wp lo lOtOOO accounta Mtt4 Invantary itai»a. Tfra «)r«t«Ni 
Intagralat accowntinf function* and invantorjr plu» tha ganaral ladgaft 
accour ta racalvahia and p^yaftla functipni normally told aaparalaly In 
al^ar tyatams. Faaluiat uaar da'lnad accauntat product* (or tarwicaa). 
t ranttct lontr invoicmS' 'tc. Itaily conflgurad to «oal aAwiranaianl t. 
XACC Oanaral Aecpwnting Sy*io«i (Bia^uirat XDHt« praf. L«. Ull. . t2M.»« 
XACC Syttaat OttO'i»«A t a 1 1 an «»)r UIOi cradit toward purchaaal. . .« 74. t9 



MBVrCHBaTBR iWpplivd BwAnvas ayvtwrrta 

Foal Offlca Bai )«7. Iriarcliff Manor. M.T. lOSlO 

Ui >«l6tr«r« 1* wrltt«« li ascro/apaMfeUr «*4 twu vmttt ASM PLU O/S*. 
T«caii O di A t to*«7 Or«ar. Vlaa ftr llMcarclMrga. Bl(p«a( flCdl cIm*.^ 
4M fiS n*Ut iV.yO toralCA ftarfMa Ar liS.OQ r«Y«lSB *ir>^ at Up •«« 
aa«* CM. %pmcltf S* af 9^, 



S«1mi 1. I. I 



(MS) 



■ IcaClHi 9l«-^l-»» (a«*a«> 
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ALL SYSTEMS INCLUDE: 

* The CLASSY CHASSIS wilA a leiro-n$onant. constinl wDog* powtr 
supply mat (VTvides -^SvoHsaiaOAmps. * iSMttsaiSAinps.and 
- 16 voNs at S Amps. 

' GOM plated iMS connectors. 

' Double density DMA fkvpy disk connilen. 

' Conptete hardware and sotlware documentaUon. 

' Necessary cables, filler plates. 

YOU CAN EXPAND YOUR SYSTEM WITH: 

MASS STORAGE 

Oval 8" DSDD Floppies. Calxiiet & Power Supply S169a.Ba 

20MB Streamer (unoer oev«to(»i»nt) 

V 6M B Dual Speed Floppy (under oeveiopn* nt) 

MEMORY 

ie7 static RAM-64XNM0S (6809 Only) t349.57 

#64 Static RAM-64K CMOS w/tsattery (6809 Only) $398.64 

«72 2S6K CMOS Sialic RAM w/baReiy S9M.72 

«31 16 Socket PROM/ROM/RAM Board (6809 only) $268.31 

INTELLIGENT I/O PROCESSOR BOARDS 

signlllcanlly reduce systems ove mead by handling routine 1/0 tunc- 
lions: freeing the host CPU lor running user programs. This Improves 
overall system perlofmance and allows user lermlruls to be tun at up 
to 19. 2K baud. For use wiQ) GMX III and 020 systems. 

# 1 1 3 Port Serial- 30 Pin (0S9) $498. 1 1 

#14 3 Pon S«ftal-30 Pin (UniFLEX) $498.14 

#12 ParalW-M Pin (UniFLEX-020) $538.12 

#13 4 Port Serial -50 Pin (0S9 & UniFLEX-020) $818.13 

I/O BOARDS (6809 SYSTEMS ONLY) 

#41 Serial. 1 Port $88.41 

#43 Serial. 2 Port $128.43 

#46 Serial. 8 Port (0S9/ FLEX only) $318.46 

#42 Parallel, 2 Port $88.42 

#44 Parallel, 2 Port (Centronics pinout), . . - $128.44 

#45 Parallel, S Port (0S9/FLEX only) $198.45 

CABLES FOR I/O BOARDS-SPECIFY BOARD 

»95 Cable sets (i needed per port) $24.95 

#SlCent B.P. Cablefar#l2&#44 $34.Sl 

•MCent CaWeSai $36.53 

OTHER BOARDS 

•66 Prototyping Board-50 Pin $56.66 

#33 Prototyping Baird-30 Pin , $38.33 

Windrush EPftOM Programmer S30 (OSg/FLEX 6809 only) $545.00 

CONTACT OlMIX FOR FURTHER DETAILS ON THESBAND 
OTHER BOARDS AND OPTIONS. 

EXPORT MODELS: ADD $30 FOR SOHZ. POWER SUPPLIES. 
ALL PRICES ARE FOB. CHICAGO. 

GIMIX DOES NOT GUARANTEE PERFORMANCE OF ANY GIMIX 
SYSTEMS. BOARDS OR SOFTWARE WHEN USED WITH OTHER 
MANUFACTURERS PRODUCT. 

GIMIX, Inc. reserves the right to change pricing, lenns. and products 
specllicaOons at any time without lurttier notice 





GIMIX ZMHZ 6809 SYSTbMS 




liMAbaUifUSTSIfcMS 


OperaOng 
Systems 

Included 


#49 

0S9 GMX 1/ 

and FLfX 


#39 

0S9 GMX 11/ 

and FLEX 


#79 

0S9 GMX III/ 

and FLEX 


#39 
UniFLEX 


«89 

UniFLEX III 


#020 
0S9/ 68020 


•020 

1 UniFLEX VM 


CPU Included 


«05 


#05 


GMX III 


»05 


GMX III 


GMX 020 


GMX 020 * MMU 


Serial Ports 
Included 


2 


2 


3 Intelligent 


2 


3 InWIIgenI 


3 inieDlgeni 


3 Intelligent 


Highspeed 
Statk: RAM 


64KB 


2S6KB 


256KB 


256KB 


256KB 


512KB 


1 Megabyte 


PRICES OF 
SYSTEMS WITH: 

Dual 80 Track 
DSDDOrtves 


$2938.49 


$339839 


$4898.79 


N/A 


N/A 


N/A 


N/A 


19MB Hard Disk 
and one 80 track 
Floppy Disk 


$5598.49 


$5998.39 


$7798.79 


$5998.39 


$8098.89 


$11,660.20 


$13,860.20 


72 MB Hard Disk 
and one 80 track 


$7598.49 


$7998.39 


$9798.79 


$7998.39 


$10,098.89 


$13,680.20 


$15,680.20 


a 72MB * a 6MB 

removable pack 
hard disk and one 
80 track ttoppy 


$9098.49 


$9498.30 


N/A 


$9498.39 


N/A 


N/A 


N/A 


a 72MB * a 12MB 
removable pack 
hard disk and one 
80 (rack tk)ppy 


N/A 


N/A 


$11.298 79 


N/A 


$11.598 89 


$15.180 20 


$17,180.20 


GMX 6809 0S9/ 
FLEX SYSTEMS 
SOFTWARE 

0S9 * Editor, 
AxemMr, Detwgger 


GMX 1 
Included 


GMX II 
Included 


GMX III 
Included 


TO ORD€R BY UAIL SEND CHECK OR MONEY ORDtR Ofl USE YOUR VISA OR MASTER 
CHARGE PleiM likw 3 weeks rx personal chKtis 10 clur US oroeii KM K lurnU- 
int « order u under $200 00 Foreign ordefs add Vo hindhno « ordef ts under 
tJOO OO Foreifln wOefs mer JIM DO will be Jhippwl *ii Enwy Air FrtuM COLLECT. 
tnc wa will crurgs no handling Ail wdfrs musl be prtwid in U S (unOi Pima noli 


FLEX 


Included 


Included 


Included 


wtfirvj money a checks arimn wi i Oiitk account in the U S Ouf bjnk it ih* Congen- 
ial Illinois NitKKUi Binti M Chicago 23t S LtSalli Stretl. Chicago IL 60693. KCdunt 


GMXBUG Monitor 


Included 


Included 


IncKjded 


Basic 09. RunB (0S9) 


Included 


Included 


IncKfded 


AMS [tm 


Included 


Included 


Included 


aASiC 09 ind OS 9 ire tmtemarts H Utcmwirt Spwn C»p and HOTOAOUk, tnc. 
FLEX jfld UmFLEX irg trjdemartis o( Tecfimcil Sysims Comuiunm. Iik GIUIX. 
I^OSr. QMX. CLASSY CHASSIS. Vt traOWTWU tt GIMIX, liK 


DO (0S9) 


Included 


IncKjded 


Inchided 


VDisk tor FLEX 


N/A 


included 


included 


RAM Disk lor 0S9 


N/A 


$125 option 


Included 




OFIEX 


N/A 


$250 optlDT) 


Included 


/^"^^^v 


Support ROM 


N/A 


N/A 


Included 


GiiniX"''= (•• ^i 


Hardware CRC 


N/A 


N/A 


Included 










HMHiiiH^^ V ' ^ n^ m 



Available: Wide variety ol languages and otiier soltware 
lor use with elt»er OS-9 or FLEX. 
All GIMIX versions o< 0S9 can read and wr te RS color 
computer lormat 0S9 disks, as well as the 
Microware/ GIMIX standard tormat. 

All 0S9/FLEX systems allow you to soltware seieci eillter 
operating system. 



1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312) 927-5510 . TWX 910-221-4055 



cms Qiuix. ir«c s-es 



<<i 







C.P.I. 

Color Micro Journal 

'68' Micro Journal 

Data Comp 

S.E Media 




For Ordaring C*ll 



(615)842-4600 

FROM - DATA-COMP, 



A Family of 100% 68XX Support Facilities 
The Folks who FIRST Put FLEX" on 

The CoCo 

Now Offering: TLEX'- (2 Versions) 

AND *STAR-DOSPLUS+"' 




STAR.DOSPLUS + 

• Functions Same as FLEX 

• Reads - wiites FLEX Disks 

• Run FLEX Programs 

• JusI type: Run "STAR-DOS" 

• Over 300 utilittes & programs 
to choose from. 



[ 



TSC Editor 

Krg tMOO 

NOW $3S.OO 



PLUS 

ALL VERSIONS OF FLEX & 

Read- Write- Dir RS Disk 
Run RS Basic from Both 
More Free Utilities 
Many Many More!!! 




STAR-DOS* INCLUDE 

+ External Terminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memory Examine Program 



"V 



TSC Assembler 

HfS UOOO 
NOW $35.00 



CoC^o Disk Drive Systems 



NCM LOMCR PRICCS ON PM IS. AND PItlTKB 

THCSC PACKAGES I«CLUOC DRIVE, 'CONTROILCR, 
PWCR SUPPLY I CABINET, CABL£, AND HAMUAL. 

• SPECIFY MHAT CONTROLLER TOU MAKT ilK, OR IMIO SUOl. 

ru $1 - I ilDGLl SIDED, DOUBLE DENSITY STS. 1349.95 

ru n - I SIMLI SIDED, DOUBLE DENSITY SYS. 1639.9S 

fU » - 1 DOUBLE SIDED, DOWLE DENSITY SYS. 14J9.95 

PM M - 2 DOUBLE SIDED. DOUBLE DENSITY SYS. 1699.9S 
rtt H - i DOMLE SIDED, DOUBLE DENSITY SYS. 

THINLINE DRIVES, HALF SI2E Mtf.ff 



ContrDllers 



J«M DISK CONTROLLER N/ JDOS OR RADIO SHACK 

DISK BASIC, SPECIfY WHAT DISK BASIC. 1134.95 



RADIO SNACK DISK CONTROLLER 1.1 (134.95 



64K UPGRADE V/NOO. IKSTRUCTIONS. 
C,0,E,F, AND COCO 2 

HJL KEYBOARDS 

MICtO TECH LONER CASE ROM ADAPTER 

RADIO SHACK BASIC 1.7 

RADIO SHACK DISK BASIC l.I 

DISK DREVE CABINET i POMER SUPPLY 

SINGLE SIDED, DOUBLE DENSITY S' DISK DRIVE 

DOUBLE SIDED, DOUBLE DENSITY i' DISK DRIVE 



Printers 



EPSON RI-80 

EPSON RI-BOTT 

EPSON MX-lOO 

EPSON n-ioo 

EPSON FI-SO 

EPSON Wt-iti 



CABLE rOR ONE DRIVE 
CABLE FOR TWO DRIVES 



t 44. 9S 

t 74. 9S 
I 74.95 
} 24.95 
> 24.95 
I 49.95 
1199.95 
1249.95 



1269.00 
13(9.00 
1499.00 
1799.00 
SS49.00 
t200.00 



i 19.95 
I 24.95 



DATA-COMP 

5900 Cassandra Smith Rd 
HiHson, TN 37343 


09 


SHIPPIN6 

USA ADD 2X 

FOREI6N ADD SX 

niN. «2.SO 


(615)842-4600 

For U>d*rln^ 
TEtEX 5SS 414 PVT BTH 
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SgOO Cassandra Smith Rd. 

Hixson, TN 37343 



Second Class Postage Paid 

At Hixson. Jti 

Ana Additional Mallmg OHicss 




S-50 BUS/68XX 

Board and/or Computer 

Terminals-CRTs-Printers 

Disk Drives*etc. 

REPAIRS 



00 o oo 



OOD o 



qO opo 



OOO o 



dDooO 



NM AVAILABLE TO ALL S5Q/6aXX USSIS 
The Oata-CoMp Division ot CPI Is proud to announce the availability 
of thair sarvica dapartnant facilities to 'ALU SJO Bus and 68XX 
users. Including all brands, SMTPC - GIMIX - SSa - HELIX and 
others. Including the single t>oard computers. * Please note that 
kit-bullt components are a special case, and olll be handled on an 
Individual basis. If accepted. 

I. If you require service, the first thing you need to do Is cell 
the number beloit and describe your problsni end conflra a DBta-O:^ 
service t shipping ni«<i«rl This Is very Important, Deta-Comp will 
not accept or repair Items not dl splaying this numbarl Also »e 
cannot advise or help you troubleshoot on the telephone, ae can 
give you a shipping number, but MO advlcal Sorryl 

2a All service Shipments must Include both a minimum S40.00 
estimate/repair charge end pre-paid return shipping charges 
(should be same amount you pay to ship to Oata-Coap). 

3. It you desire a telephone estimate after your repair Itatn Is 
received) Include an additional SJ.OO to cover long distance 
charges. Otheralse an estimate «lll be mailed to you. If you 
requested an astlnate. Estimates aust be requested . Mailed 
estimates sIom down the process considerably, ftowsver. It repairs 
ere not desired, after the estimate Is given, the S40.00 shall 
constitute the estimate charge, and the ltan(s> alll be returned 
unrepaired providing sufficient return shipping charges aare 
Included alth Item to be serviced. Please note that estimates are 
given In dollar amounts only. 

4> Oata-Comp service Is the oldest and aost experienced general 
SS0/68XX service departeant In the aorld. We have over 
tlOO, 000.00 In parts In stock. Me have the west cooplate set ot 
service documents for the various S30/68XX systems of anyone - 
VET, MC DO NOT >MVE EVERn>1IHQ But ae sure have mora than anyone 
else. Me repair about 90f of all Items ae receive. Call for 
additional Information or shipping Instructions. 
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DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 



(615)842-4607 
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